Автор: Bronislav

Bronislav — Fri, 24 Aug 2018 12:39:24 +0000

program Array136;//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 SumLenMin := real.MaxValue;  
  var k : integer;
  
  for var i := 0 to n - 1 do
  begin
    var SumLen := 0.0;
    for var j := 0 to n - 1 do
      if j <> i then
        SumLen += FLen(a[i], a[j]);
//    Println(SumLen);
    if SumLenMin > SumLen then
    begin
      SumLenMin := SumLen;
      k := i;
    end;
  end;
  
  Print(a[k], 'SumLenMin =', SumLenMin)
end.

program Array136;//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 SumLenMin := real.MaxValue;

var k : integer;

for var i := 0 to n - 1 do

begin

var SumLen := 0.0;

for var j := 0 to n - 1 do

if j <> i then

SumLen += FLen(a[i], a[j]);

// Println(SumLen);

if SumLenMin > SumLen then

begin

SumLenMin := SumLen;

k := i;

end;

Print(a[k], 'SumLenMin =', SumLenMin)

end.

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

Автор: Bronislav