Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.07.2010, 21:11   #1
evgenext
Новичок
Джуниор
 
Регистрация: 02.07.2010
Сообщений: 3
По умолчанию Найти номера пары точек, расстояние между которыми наибольшее

Даны координаты n точек на плоскости: (Xi, Yi), ..., (Хn, Yn) (n=30). Найти номера пары точек, расстояние между которыми наибольшее (считать, что такая пара единственная).
evgenext вне форума Ответить с цитированием
Старый 02.07.2010, 22:46   #2
L_M
Форумчанин Подтвердите свой е-майл
 
Регистрация: 25.02.2008
Сообщений: 289
По умолчанию

Наверное спрашивать где наработки смысла нет? Хотя, думаю, подобные задачи решались уже тут. В общем в вот код:
Код:
type
     TPoint=record
         x,y:real;
     end;
var
     Points:array[1..30] of TPoint;
max:=0;
for i:=1 to n-1 do
    for j:=i+1 to n do begin
        s:=sqrt(sqr(points[i].x-points[j].x)+sqr(points[i].y-points[j].y));
        if s>max then begin
            max:=s;
            maxi:=i;
            maxj:=j;
        end;
    end;
Собственно переменные maxi,maxj хранят номера точек, а переменная max расстояние между ними.
Упс...
L_M вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Расстояние между символами. Meridian Помощь студентам 0 05.06.2010 15:58
Паскаль*Найти расстояние между двумя заданными множе-ствами точек tipson Помощь студентам 2 11.07.2009 12:19
Найти номера пары точек, расстояние между которыми наибольшее Nevis Помощь студентам 5 21.06.2009 23:37
Точки и нахождение ближайшей пары точек Salim Помощь студентам 0 15.06.2009 23:32
Определить радиус и центр окружности на которой лежит наибольшее число точек. Zoratul Помощь студентам 2 11.01.2008 16:00