Решаем задачи Абрамян на Паскале. Array131

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}$ .

Решение:

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.

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;

Writeln (Amin);

end.

Задачи из раздела Array можно посмотреть здесь.

Комментарии 1

Эээ… пусть будет массивом кортежей из координат.

program Array131;//pabc.net

function FLen(a, b: (real, real)) := Sqrt(Sqr(a[0] - b[0]) + Sqr(a[1] - b[1])).Round(2);

begin
  var n := 10;
  var a := new System.Tuple<real, real>[n];
  
  var b := (Random(-10.0, 10.0).Round(1), 
              Random(-10.0, 10.0).Round(1));
  
  for var i := 0 to n - 1 do
    a[i] := (Random(-10.0, 10.0).Round(1), 
               Random(-10.0, 10.0).Round(1));//a.Println;
  
  var j := 0;//index of nearest dot
  var MinLen := FLen(a[j], b);
  
  for var i := 1 to n - 1 do
  begin
    var Len := FLen(a[i], b);
    if MinLen > Len then
    begin
      MinLen := Len;
      j := i;
    end
  end;
  
  Write('b',b, ' a',a[j], ' MinLen = ',MinLen);
end.

program Array131;//pabc.net

function FLen(a, b: (real, real)) := Sqrt(Sqr(a[0] - b[0]) + Sqr(a[1] - b[1])).Round(2);

begin

var n := 10;

var a := new System.Tuple<real, real>[n];

var b := (Random(-10.0, 10.0).Round(1),

Random(-10.0, 10.0).Round(1));

for var i := 0 to n - 1 do

a[i] := (Random(-10.0, 10.0).Round(1),

Random(-10.0, 10.0).Round(1));//a.Println;

var j := 0;//index of nearest dot

var MinLen := FLen(a[j], b);

for var i := 1 to n - 1 do

begin

var Len := FLen(a[i], b);

if MinLen > Len then

begin

MinLen := Len;

j := i;

end

end;

Write('b',b, ' a',a[j], ' MinLen = ',MinLen);

end.

Ответить

Решаем задачи Абрамян на Паскале. Array131

Комментарии:

Комментарии 1

Добавить комментарий для Bronislav Отменить ответ