Комментарии 1

• 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.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

  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.

  Ответить