Решаем задачи Абрамян на Паскале. 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;

    end;

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

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

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