Array131. Дано множество A из N точек на плоскости и точка B (точки заданы своими координатами x, y). Найти точку из множества A, наиболее близ кую к точке B. Расстояние R между точками с координатами (x_1, y_1) и (x_2, y_2) вычисляется по формуле: R =\sqrt{ ( x_2 — x_1 )^2 + ( y_2 — y_1 )^2}.
Решение:
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 |
program Array131; var A: array [1..10,1..2] of real; Bx,By,R,Rmin:real; N,i,Amin: 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; Writeln('B'); Write('x: '); Readln(Bx); Write('y: '); Readln(By); Rmin:=sqrt(sqr(A[1,1]-Bx)+sqr(A[1,2]-By)); Amin:=1; for i:=2 to N do begin R:=sqrt(sqr(A[i,1]-Bx)+sqr(A[i,2]-By)); if R<Rmin then begin Rmin:=R; Amin:=i; end; end; Writeln (Amin); end. |
Задачи из раздела Array можно посмотреть здесь.
Эээ… пусть будет массивом кортежей из координат.