Автор: Bronislav

Bronislav — Fri, 24 Aug 2018 10:28:36 +0000

program Array134;//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 n := 10;
  var a := new dot[n];
  
  for var i := 0 to n - 1 do
  begin
    a[i].x := Random(-10.0, 10.0).Round();
    a[i].y := Random(-10.0, 10.0).Round();
  end;
  //a.Println;
  
  var (p, q) := (0, 0);
  var MaxLen := 0.0;
  
  for var i := 0 to n - 2 do
  begin
    for var j := i + 1 to n - 1 do
    begin
      var Len := FLen(a[i], a[j]);
      if MaxLen < Len then
      begin
        MaxLen := Len;
        p := i;
        q := j;
      end;
    end;
  end;
  
  Print(a[p], a[q], 'MaxLen =',MaxLen);
end.

program Array134;//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 n := 10;

var a := new dot[n];

for var i := 0 to n - 1 do

begin

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

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

end;

//a.Println;

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

var MaxLen := 0.0;

for var i := 0 to n - 2 do

begin

for var j := i + 1 to n - 1 do

begin

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

if MaxLen < Len then

begin

MaxLen := Len;

p := i;

q := j;

end;

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

end.

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

Автор: Bronislav