Помощь - Поиск - Пользователи - Календарь
Полная версия: Найти номера двух точек,расстояние между которыми наибольшее
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
-лена-
Программа.Даны координаты n точек на плоскости:x1,y1,...,xn,yn(n=20).
Найти номера двух точек,расстояние между которыми наибольшее(считать,что
такая пара точек единственная).
мисс_граффити
Программы - не вижу.
Только условие задачи.
И что с ним надо сделать? К чему это вообще?

Или это игра - кому какие задачи задали? Типа каждый свои кидает, а у кого сложнее - тот выиграл?
Гость
Нет это не игра. Я тоже думаю что она не похожа на программу, но я дала текст так как он был записан. Пожалуйста помогите мне написать прогу.А то завтра уже сдавать, а у меня ничего нету.Зарание спасибо.
Malice
Цитата(Гость @ 28.10.2007 10:10) *

Нет это не игра. Я тоже думаю что она не похожа на программу, но я дала текст так как он был записан. Пожалуйста помогите мне написать прогу.А то завтра уже сдавать, а у меня ничего нету.Зарание спасибо.

Пишешь функцию нахождения расстояния между точками по теореме пифагора. Далее делаешь перебор всех пар точек:
макс:=0;
for i:=1 to 19 do
for j:=i+1 to 20 do
if растояние (точка[i],точка[j])> макс then
begin
макс=расcтояние (точка[i],точка[j]);
индекс_точки1:=i;
индекс_точки2:=j;
end;
Печатаем результат
..
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.