Автор: Bronislav

Bronislav — Fri, 16 Nov 2018 09:53:13 +0000

program Param69;//pabc.net

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

function Len(A, B: TPoint) := Sqrt(Sqr(A.x - B.x) + Sqr(A.y - B.y));

function PerimN(p: List<TPoint>): real;
begin
  Result := Len(p[0], p[p.Count - 1]);
  for var i := 0 to p.Count - 2 do
    Result += Len(p[i], p[i + 1])
end;

begin
  var A: TPoint;
  var p := new List<TPoint>;
  loop 3 do
  begin
    var n := ReadlnInteger('n =');
    var c := 'A';
    var s :='';
    for var i := 1 to n do
    begin
      Writeln($'точка {c}: ');
      Readln(A.x, A.y);
      p += A;//p.Add(A)
      s += c;
      inc(c)
    end;
    Writeln($'Perim{n}({s}) = {PerimN(p)}');//Perim3(ABC) = 12
    p.Clear;
  end;
end.

program Param69;//pabc.net

type

TPoint = record

x, y: real;

end;

function Len(A, B: TPoint) := Sqrt(Sqr(A.x - B.x) + Sqr(A.y - B.y));

function PerimN(p: List<TPoint>): real;

begin

Result := Len(p[0], p[p.Count - 1]);

for var i := 0 to p.Count - 2 do

Result += Len(p[i], p[i + 1])

end;

begin

var A: TPoint;

var p := new List<TPoint>;

loop 3 do

begin

var n := ReadlnInteger('n =');

var c := 'A';

var s :='';

for var i := 1 to n do

begin

Writeln($'точка {c}: ');

Readln(A.x, A.y);

p += A;//p.Add(A)

s += c;

inc(c)

end;

Writeln($'Perim{n}({s}) = {PerimN(p)}');//Perim3(ABC) = 12

p.Clear;

end;

end.

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

Автор: Bronislav