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

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

Решение:

program Array138;

var

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

P,Pmin:real;

N,i,i2,i3,Point1,Point2,Point3: 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;

Pmin:=Pmin+sqrt(sqr(A[1,1]-A[2,1])+sqr(A[1,2]-A[2,2]));

Pmin:=Pmin+sqrt(sqr(A[2,1]-A[3,1])+sqr(A[2,2]-A[3,2]));

Pmin:=Pmin+sqrt(sqr(A[1,1]-A[3,1])+sqr(A[1,2]-A[3,2]));

Point1:=1;

Point2:=2;

Point3:=3;

for i:=1 to N do

for i2:=i+1 to N do

for i3:=i2+1 to N do

begin

P:=0;

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

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

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

if Pmin>P then

begin

Pmin:=P;

Point1:=i;

Point2:=i2;

Point3:=i3;

end;

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

end.

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

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

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

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

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