Решаем задачи Абрамян на Паскале. Array134

Array134. Дано множество $$A$$ из $$N$$ точек (точки заданы своими координатами $$x$$, $$y$$). Найти пару различных точек этого множества с максимальным расстоянием между ними и само это расстояние (точки выводятся в том же порядке, в котором они перечислены при задании множества $$A$$).

Решение:

program Array134;

var

A: array [1..10,1..2] of real;

R,Rmax:real;

N,i,i2,Point1,Point2: integer;

begin

Write('N: ');

Readln(N);

Writeln('A: ');

for i:=1 to N do

begin

write(i,'.x :');

readln(a[i,1]);

write(i,'.y :');

readln(a[i,2]);

end;

Rmax:=0;

Point1:=0;

Point2:=0;

for i:=1 to N-1 do

for i2:=i+1 to N do

begin

R:=sqrt(sqr(A[i,1]-A[i2,1])+sqr(A[i,2]-A[i2,2]));

writeln(R);

if (R > Rmax) then

begin

Rmax:=R;

Point1:=i;

Point2:=i2;

end;

Writeln ('(',A[Point1,1],':',A[Point1,2],') (',A[Point2,1],':',A[Point2,2],')');

end.

Задачи из раздела Array можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Array134

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ