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

• program Param70;//pabc.net type TPoint = record x, y: real; end; TTriangle = record A, B, C: TPoint; end; function Len(A, B: TPoint) := Sqrt(Sqr(A.x - B.x) + Sqr(A.y - B.y)); function Perim(T: TTriangle) := Len(T.A, T.B) + Len(T.B, T.C) + Len(T.A, T.C); function Area(T: TTriangle): real; begin var p := Perim(T) / 2; var a := Len(T.A, T.B); var b := Len(T.B, T.C); var c := Len(T.A, T.C); result := Sqrt(p * (p - a) * (p - b) * (p - c)) end; function AreaN(p: List<TPoint>): real; begin Result := 0.0; var T: TTriangle; T.A := p[0]; for var i := 1 to p.Count - 2 do begin (T.B, T.C) := (p[i], p[i + 1]); Result += Area(T) end end; begin var A, B, C, D, E: TPoint; (A.x, A.y) := (1, 1); (B.x, B.y) := (4, 1); (C.x, C.y) := (4, 5); (D.x, D.y) := (1, 5); (E.x, E.y) := (0, 5); var p := Lst(A, B, C); Writeln($'Area(p, {p.Count}) = {AreaN(p)}');//Area(p, 3) = 6 p += D; Writeln($'Area(p, {p.Count}) = {AreaN(p)}');//Area(p, 4) = 12 p += E; Writeln($'Area(p, {p.Count}) = {AreaN(p)}');//Area(p, 5) = 14 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 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54

  program Param70;//pabc.net   type   TPoint = record     x, y: real;   end;      TTriangle = record     A, B, C: TPoint;   end;   function Len(A, B: TPoint) := Sqrt(Sqr(A.x - B.x) + Sqr(A.y - B.y));   function Perim(T: TTriangle) := Len(T.A, T.B) + Len(T.B, T.C) + Len(T.A, T.C);   function Area(T: TTriangle): real; begin   var p := Perim(T) / 2;   var a := Len(T.A, T.B);   var b := Len(T.B, T.C);   var c := Len(T.A, T.C);   result := Sqrt(p * (p - a) * (p - b) * (p - c)) end;   function AreaN(p: List<TPoint>): real; begin   Result := 0.0;   var T: TTriangle;   T.A := p[0];   for var i := 1 to p.Count - 2 do   begin     (T.B, T.C) := (p[i], p[i + 1]);     Result += Area(T)   end end;   begin   var A, B, C, D, E: TPoint;   (A.x, A.y) := (1, 1);   (B.x, B.y) := (4, 1);   (C.x, C.y) := (4, 5);   (D.x, D.y) := (1, 5);   (E.x, E.y) := (0, 5);      var p := Lst(A, B, C);   Writeln($'Area(p, {p.Count}) = {AreaN(p)}');//Area(p, 3) = 6      p += D;   Writeln($'Area(p, {p.Count}) = {AreaN(p)}');//Area(p, 4) = 12      p += E;   Writeln($'Area(p, {p.Count}) = {AreaN(p)}');//Area(p, 5) = 14    end.

  Ответить