Автор: Bronislav

Bronislav — Fri, 24 Aug 2018 19:58:26 +0000

program Array138;//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 := 5;
  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;
  
//  Print('A:'); a.Println;
  
  var PMin := real.MaxValue;
  var p, q, r: integer;
  
  for var i := 0 to n - 3 do
    for var j := i + 1 to n - 2 do
      for var k := j + 1 to n - 1 do
      begin
        var Perim := FLen(a[i], a[j]) + 
                 FLen(a[j], a[k]) + 
                 FLen(a[k], a[i]);
//        Println(Perim);
        if PMin > Perim then
        begin
          PMin := Perim;
          p := i;
          q := j;
          r := k;
        end;
      end;
  
  Print('PMin =', PMin, a[p], a[q], a[r]);
end.

program Array138;//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 := 5;

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;

// Print('A:'); a.Println;

var PMin := real.MaxValue;

var p, q, r: integer;

for var i := 0 to n - 3 do

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

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

begin

var Perim := FLen(a[i], a[j]) +

FLen(a[j], a[k]) +

FLen(a[k], a[i]);

// Println(Perim);

if PMin > Perim then

begin

PMin := Perim;

p := i;

q := j;

r := k;

end;

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

end.

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

Автор: Bronislav