Array138. Дано множество $$A$$ из $$N$$ точек ($$N \gt 2$$), точки заданы своими координатами $$x$$, $$y$$). Найти наименьший периметр треугольника, вершины которого принадлежат различным точкам множества $$A$$, и сами эти точки (точки выводятся в том же порядке, в котором они перечислены при задании множества $$A$$).
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 |
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. |
Задачи из раздела Array можно посмотреть здесь.
Комментарии:
Комментарии 1