Автор: Bronislav

Bronislav — Thu, 23 Aug 2018 15:18:25 +0000

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

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

Автор: Bronislav