Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Переделать задачу с использованием If Всем привет... нужно переделать задачу через IF uses crt; var x: integer;y: real; begin write('Укажите ваш доход '); readln(x); case x of 0..100: y:=x*5/100; 101..500: y:=x*15/100; https://www.cyberforum.ru/ pascalabc/ thread558124.html Pascal ABC Добавить засечки на оси графика, с помощью модуля GraphABC
Есть исходник. Требуется добавить засечки по оси x согласно заданному интервалу и шагу аргумента, по оси y согласно значению функции(допустим максимальное значение функции 5, а минимальное -2,...
Pascal ABC Одномерный массив. Найти сумму всех элементов, которые меньше среднего арифметического https://www.cyberforum.ru/ pascalabc/ thread558093.html
помогите пожалуйста решить Найти сумму всех элементов массива целых чисел, которые меньше среднего арифметического элементов массива. Размерность массива –20. Заполнение массива осуществить...
Pascal ABC Сколько будет всех бактерий через k тактов времени? Имеется n бактерий красного цвета. Через 1 такт времени красная бактерия меняется на зелёную, затем через 1 такт времени делится на красную и зелёную. Сколько будет всех бактерий через k тактов... https://www.cyberforum.ru/ pascalabc/ thread558092.html
Pascal ABC Графика. Составить программу изображения «кружева»
Составить программу изображения «кружева», которое создается переплетением отрезков, соединяющих между собой все вершины правильного n-угольника.
Pascal ABC Текстовые файлы https://www.cyberforum.ru/ pascalabc/ thread558077.html
Удалить из середины каждой строки текстового файла заданное пользователем количество символов. Создайте текстовый файл, содержащий удаленные символы. Вывести на экран первоначальный файл и...
Pascal ABC Записи и тип.файлы. Структура: наименование товара, страна-импортер, стоимость и объем партии Дан файл, содержащий сведения об экспортируемых товарах: наименование товара, страна, импортирующая товар, стоимость и объем поставляемой партии в штуках. Составить программу вывода списка ... https://www.cyberforum.ru/ pascalabc/ thread558076.html Переменной присвоить значение, которое находится между двумя другими на числовой оси Pascal ABC
Даны три вещественных не равных между собой числа a, b, c. Переменной Y присвоить значение той переменной, которое находится между двумя другими на числовой оси. (Например, если a=5, b=2, c=4,...
Pascal ABC Найти коэффициенты первообразной от полинома https://www.cyberforum.ru/ pascalabc/ thread558067.html
Помогите пожалуйста срочно.....!!!!!!! найти коэффициенты первообразной от полинома Pn(x);
Pascal ABC Задача Написать программу поиска чисел, лежащих в интервале от -5 до 5, в последовательности чисел, вводимых с клавиатуры Помогите пожалуйста решить задачи , буду очень благодарен за то что выручите , сам уже больше половины решил осталось самое не подъёмное для меня :swoon: Разработка и отладка разветвляющихся... https://www.cyberforum.ru/ pascalabc/ thread558024.html
Pascal ABC Нарисуйте Компьютер в Паскале
Я с паскалем не очень, надеюсь на вашу помощь, буду благодарен. Компьютер должен быть настольным.
Pascal ABC Подсветка слов в строке в определенном порядке Вопрос такой:Пользователь набрал предложение из трех слов.Нам нужно нажатием любой клавиши выделять слова в предложении в порядке 2,1,3.Может примеры,наброски,похожие исходники какие-нибудь есть? https://www.cyberforum.ru/ pascalabc/ thread558000.html
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
25.04.2012, 13:05 0

Найти длину наибольшего отрезка - Pascal ABC - Ответ 2953796

25.04.2012, 13:05. Показов 1222. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
const nmax=20;
var x:array[1..2,1..nmax] of real;
    n,i,j:byte;
    mx:real;
begin
randomize;
repeat
write('Количество точек от 2 до ',nmax,' n=');
read(n);
until n in [2..nmax];
writeln('Координаты точек:');
for i:=1 to 2 do
 begin
  for j:=1 to n do
   begin
    x[i,j]:=9*random;
    write(x[i,j]:4:1);
   end;
  writeln;
 end;
writeln;
mx:=sqrt(sqr(x[1,1]-x[1,2])+sqr(x[2,1]-x[2,2]));
for i:=1 to n-1 do
for j:=i+1 to n do
if sqrt(sqr(x[1,i]-x[1,j])+sqr(x[2,i]-x[2,j]))>mx then
mx:=sqrt(sqr(x[1,i]-x[1,j])+sqr(x[2,i]-x[2,j]));
write('Максимальное расстояние=',mx:0:1);
end.


Вернуться к обсуждению:
Найти длину наибольшего отрезка Pascal ABC
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.04.2012, 13:05
Готовые ответы и решения:

Найти длину наибольшего и наименьшего отрезка
С помощью произвольного числового двумерного массива(X11 X12 ... X1N) (X21 X22 ... X2N) на...

Обработка двумерных массивов. С помощью матрицы задано n точек. Найти длину наибольшего отрезка и вывести его координаты
с помощью матрицы А(nxm)в плоскости задано n точек так ,что а,а- координаты J-й точки.точки...

Определить длину наибольшего отрезка
На плоскости 5 точек заданы своими координатами: (42,1; 0,33), (14,08; 21), (-11; -4), (13,05;...

Найти длину незанятой части отрезка A
Даны целые положительные числа A и B (A > B). На отрезке длины A размещено максимально возможное...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.04.2012, 13:05
Помогаю со студенческими работами здесь

Найти длину наименьшего отрезка числовой прямой в массиве
Дан линейный массив, содержащий N целых чисел. Нужно найти длину наименьшего отрезка числовой...

Найти длину отрезка в метрах. Использовать оператор case
Единицы длины пронумерованы следующим образом: 1 — дециметр. 2 — километр, 3 — метр, 4 — миллиметр,...

Не используя операции умножения и деления, найти длину незанятой части отрезка A
Даны положительные числа A и B (A > . На отрезке длины A размещено максимально возможное количество...

Найти длину отрезка по данным координатам, длина до 3 знаков после точки
Найдите длину отрезка, если заданы координаты начала и конца данного отрезка. Ввести одной строке...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru