Array137. Дано множество A из N точек (N > 2), точки заданы своими координатами x, y). Найти наибольший периметр треугольника, вершины которого принадлежат различным точкам множества A, и сами эти точки (точки выводятся в том же порядке, в котором они перечислены при задании множества A).
>Решение Pascal
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 | program Array137; var A: array [1..10,1..2] of real; P,Pmax: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; Pmax:=0; 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 Pmax |
>
Решение C
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 | #include #include int main(void) { float a[10][2]; int n; printf("N: "); scanf("%i",&n); int i; for (i=0; i<n; ++i){ printf("a[%i]:\n",i+1); printf(" x : "); scanf("%f",&a[i][0]); printf(" y : "); scanf("%f",&a[i][1]); } int p1,p2,p3,i2,i3; float p,pmax=0; for (i=0; i<n; ++i) for (i2=i+1; i2<n; ++i2) for (i3=i2+1; i3<n; ++i3){ p=0; p+= sqrt(pow(a[i][0]-a[i2][0],2)+pow(a[i][1]-a[i2][1],2)); p+= sqrt(pow(a[i][0]-a[i3][0],2)+pow(a[i][1]-a[i3][1],2)); p+= sqrt(pow(a[i2][0]-a[i3][0],2)+pow(a[i2][1]-a[i3][1],2)); if (p > pmax) { p1=i; p2=i2; p3=i3; pmax=p; } } printf("P: %f\n",pmax); printf("A %i :\n x: %f\n y: %f\n",p1+1,a[p1][0],a[p1][1]); printf("A %i :\n x: %f\n y: %f\n",p2+1,a[p2][0],a[p2][1]); printf("A %i :\n x: %f\n y: %f\n",p3+1,a[p3][0],a[p3][1]); return 0; } |