|
|
| Другие темы раздела | |
| Free Pascal Фибоначчи Нужно всего лишь найти энное число Фибонначи. Только нужна программа для больших n. Наваял нечто эдакое type mas=array of longint; var a,b,c:mas; n,m,i,j,k,x:longint; procedure sumlong(a,b:mas;var c:mas); var i,k:longint; begin fillchar(c,sizeof(c),0); if a>b then k:=a https://www.cyberforum.ru/ free-pascal/ thread1056260.html |
список, очередь и стек Free Pascal Решить одну и ту же задачу, организуя список, очередь и стек. В поле данных каждого элемента списка записываются данные о студентах:: фамилия, место проживания, год рождения. Выведите на экран весь список и определите сколько студентов не живут в Минске и родились в заданном году Помагите очень нужно))) |
| Free Pascal функция возвращает сумму вещественных чисел в заданном интервале 1. Разработать прогу в которой функция smmm возвращает сумму вещественных чисел из массива М которые лежат в интервале вещественных чисел x и y. Заранее спасибо https://www.cyberforum.ru/ free-pascal/ thread1056082.html | Free Pascal Создайте на экране четыре окна. В двух окнах поместите простые графические рисунки Помогите, пожалуйста с заданием: Создайте на экране четыре окна. В двух окнах поместите простые графи- ческие рисунки (например, ряд концентрических окружностей разного цвета) с использованием различных режимов отсечения. В два других окна поместите тексты, иллюстрирующие возможность использования шрифтов разного типа, размера и расположения. Подобным образом заполните пассивную страницу.... https://www.cyberforum.ru/ free-pascal/ thread1056044.html |
|
Free Pascal Определить в диапазоне количество строк с положительной суммой элементов Определить в диапазоне количество строк с положительной суммой элементов. Помогите пожалуйста! |
Free Pascal Требуется посчитать число строк с цифрами Требуется посчитать число строк с цифрами и число строк без цифр в текстовом файле. Где здесь ошибка? var i, n, no:integer; s: string; PRG:text; procedure rstr; {Процедура считывания строк} begin readln(PRG, s); no := no + 1 end; https://www.cyberforum.ru/ free-pascal/ thread1055948.html |
| Free Pascal Программа для деления строки по шаблону-разделителю Доброго времени суток, не могли бы вы помочь написать программу для разбиения заданной строки на несколько строк в соответствии с задаваемым шаблоном-разделителем. Строка и разделитель должны вводится с клавиатуры и реализованы в виде отдельной подпрограммы(процедуры) с передачей параметра-строки по адресу, для случая если строка состоит из одинакового символа и шаблон-разделитель из этого же... https://www.cyberforum.ru/ free-pascal/ thread1055888.html |
как представить число 67 в двоичной 1000011 отрицательным? Free Pascal как представить число 67 в двоичной 1000011 отрицательным?? |
|
Free Pascal Задача с матрицей и словами
https://www.cyberforum.ru/ free-pascal/ thread1055573.html Помогите пжлст поправить код, сижу уже несколько дней и никак не могу ничего сделать( Задание: В двумерном массиве символов найти слово, которое имеет обратное себе слово(например - мир-рим). Большое спасибо за помощь! program fff; type mas=array of char; b=array of char; var u:mas; s,s1,s2:b; |
Free Pascal Вычислить стоимость междугородного телефонного разговора
https://www.cyberforum.ru/ free-pascal/ thread1055037.html Написать программу, вычисляющую стоимость междугородного телефонного разговора (цена одной минуты определяется расстоянием до города, в котором находится абонент). Исходными данными для программы являются код города и продолжительность разговора. Город Код Цена минуты, руб. Владивосток 423 2,2 Москва 095 1,0 Мурманск 815 1,2 Самара 846 1,4 |
|
Free Pascal Подсчитать количество положительных и сумму отрицательных элементов массива Подсчитать количество положительных и сумму отрицательных элементов массива А, состоящего из 11 элементов. |
Free Pascal Программа для сортировки одномерного массива нуждается в доработке var A:array of integer; i, Res:integer; f:boolean; begin for i:=1 to 5 do begin write ('Элемент ', i, '> '); readln (A); end; https://www.cyberforum.ru/ free-pascal/ thread1054346.html |
| 25.12.2013, 16:51 | 0 |
Заданы координаты 4 точек на плоскости. Найдите расстояние до наиболее удаленной точки от начала координат. - Free Pascal - Ответ 555765225.12.2013, 16:51. Показов 2569. Ответов 4
Метки (Все метки)
Ответ
Glavak, там только дописать чуть-чуть и все ок
 Не за что Вернуться к обсуждению: Заданы координаты 4 точек на плоскости. Найдите расстояние до наиболее удаленной точки от начала координат. Free Pascal
0
|
|
| 25.12.2013, 16:51 | |
|
Готовые ответы и решения:
4
Если все заданные точки плоскости принадлежат первому квадранту, определить координаты точки, наиболее удаленной от начала координат
Заданы координаты 10 точек.Найти точку самую дальнюю от начала координат и найти расстояние.
|
| 25.12.2013, 16:51 | |
| 25.12.2013, 16:51 | |
|
Помогаю со студенческими работами здесь
0
Для n точек плоскости найти расстояние от начала координат до каждой из них Модуль Graph: для N точек на плоскости найти точку, наиболее удалённую от начала координат
|