Array136. Дано множество A из N точек (N > 2), точки заданы своими координатами x, y). Найти такую точку из данного множества, сумма расстояний от которой до остальных его точек минимальна, и саму эту сумму.
>Решение 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 31 32 33 34 | program Array136; var A: array [1..10,1..2] of real; RminSum,RSum:real; N,i,i2,Point: 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; Point:=0; for i:=1 to N do begin Rsum:=0; for i2:=1 to N do RSum:=RSum+sqrt(sqr(A[i,1]-A[i2,1])+sqr(A[i,2]-A[i2,2])); if (RSum<RminSum) or (Point=0) then begin RminSum:=RSum; Point:=i; end; end; Writeln ('RSum:',RminSum,' (',A[Point,1],':',A[Point,2],')'); end. |
>
Решение 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 | #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 i2,amin; float r,rmin; for (i=0; i<n; ++i){ for (i2=0; i2<n; ++i2){ r+= sqrt(pow(a[i][0]-a[i2][0],2)+pow(a[i][1]-a[i2][1],2)); } if (r < rmin || i==1) { amin=i; rmin=r; r=0; } } printf("R: %f\n",rmin); printf("A %i :\n x: %f\n y: %f\n",amin+1,a[amin][0],a[amin][1]); return 0; } |