Автор: Bronislav

Bronislav — Fri, 24 Aug 2018 11:36:30 +0000

program Array135;//pabc.net

type
  dot = record
    x, y: real;
  end;

function FLen(a, b: dot) := Sqrt(Sqr(a.x - b.x) + Sqr(a.y - b.y)).Round(2);

begin
  var n1 := 5;
  var n2 := 6;
  var a := new dot[n1];
  var b := new dot[n2];
  
  for var i := 0 to n1 - 1 do
  begin
    a[i].x := Random(-10.0, 10.0).Round();
    a[i].y := Random(-10.0, 10.0).Round();
  end;
  //a.Println;
  
  for var i := 0 to n2 - 1 do
  begin
    b[i].x := Random(-10.0, 10.0).Round();
    b[i].y := Random(-10.0, 10.0).Round();
  end;
  //b.Println;
  
  var MinLen := FLen(a[0], b[0]); //real.MaxValue;
  var (p, q) := (0, 0);
  
  for var i := 0 to n1 - 1 do
  begin
    for var j := 0 to n2 - 1 do
    begin
      var Len := FLen(a[i], b[j]);
      if MinLen > Len then
      begin
        MinLen := Len;
        p := i;
        q := j;
      end;
    end;
  end;
  
  Print(a[p], b[q], 'MinLen = ', MinLen);
end.

program Array135;//pabc.net

type

dot = record

x, y: real;

end;

function FLen(a, b: dot) := Sqrt(Sqr(a.x - b.x) + Sqr(a.y - b.y)).Round(2);

begin

var n1 := 5;

var n2 := 6;

var a := new dot[n1];

var b := new dot[n2];

for var i := 0 to n1 - 1 do

begin

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

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

end;

//a.Println;

for var i := 0 to n2 - 1 do

begin

b[i].x := Random(-10.0, 10.0).Round();

b[i].y := Random(-10.0, 10.0).Round();

end;

//b.Println;

var MinLen := FLen(a[0], b[0]); //real.MaxValue;

var (p, q) := (0, 0);

for var i := 0 to n1 - 1 do

begin

for var j := 0 to n2 - 1 do

begin

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

if MinLen > Len then

begin

MinLen := Len;

p := i;

q := j;

end;

Print(a[p], b[q], 'MinLen = ', MinLen);

end.

Комментарии: Решаем задачи Абрамян на Паскале. Array135

Автор: Bronislav