Автор: Bronislav

Bronislav — Fri, 16 Nov 2018 10:12:08 +0000

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.

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.

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

Автор: Bronislav