Автор: Bronislav

Bronislav — Fri, 24 Aug 2018 18:08:33 +0000

Ну понятно, лишних итераций не будет, потому что при i>=N-1 или i2>=N циклы не выполнятся. Мой вариант с записями:

program Array137;//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;
//  a.Println;
  
  var PMax := 0.0;
  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 := 0.0;
        Perim := FLen(a[i], a[j]) + 
                 FLen(a[j], a[k]) + 
                 FLen(a[k], a[i]);
//        Println(Perim);
        if PMax < Perim then
        begin
          PMax := Perim;
          p := i;
          q := j;
          r := k;
        end;
      end;
  
  Print('PMax =', PMax, a[p], a[q], a[r]);
end.

program Array137;//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;

// a.Println;

var PMax := 0.0;

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 := 0.0;

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

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

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

// Println(Perim);

if PMax < Perim then

begin

PMax := Perim;

p := i;

q := j;

r := k;

end;

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

end.

Автор: Bronislav

Bronislav — Fri, 24 Aug 2018 14:39:42 +0000

Лишние итерации у вас в строках 22 и 23. Или нет?

 for i:=1 to N-2 do
  for i2:=i+1 to N-1 do

1 2	for i:=1 to N-2 do for i2:=i+1 to N-1 do

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

Автор: Bronislav

Автор: Bronislav