Array135. Даны множества $$A$$ и $$B$$, состоящие соответственно из $$N_1$$ и $$N_2$$ точек (точки заданы своими координатами $$x$$, $$y$$). Найти минимальное расстояние между точками этих множеств и сами точки, расположенные на этом расстоянии (вначале выводится точка из множества $$A$$, затем точка из множества $$B$$).
Решение:
|
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 47 48 49 50 51 |
program Array135; var A,B: array [1..10,1..2] of real; R,Rmin:real; N1,N2,i,i2,Point1,Point2: integer; begin Write('N1: '); Readln(N1); Writeln('A: '); for i:=1 to N1 do begin write(i,'.x :'); readln(a[i,1]); write(i,'.y :'); readln(a[i,2]); end; Write('N2: '); Readln(N2); Writeln('B: '); for i:=1 to N1 do begin write(i,'.x :'); readln(b[i,1]); write(i,'.y :'); readln(b[i,2]); end; Rmin:=sqrt(sqr(A[1,1]-B[1,1])+sqr(A[1,2]-B[1,2])); Point1:=1; Point2:=1; for i:=1 to N1 do for i2:=1 to N2 do begin R:=sqrt(sqr(A[i,1]-B[i2,1])+sqr(A[i,2]-B[i2,2])); if (R < Rmin) then begin Rmin:=R; Point1:=i; Point2:=i2; end; end; Writeln ('R:',Rmin,' (',A[Point1,1],':',A[Point1,2],') (',B[Point2,1],':',B[Point2,2],')'); end. |
Задачи из раздела Array можно посмотреть здесь.
Комментарии:
Комментарии 1