Написать программу в Pascal ABC: Нахождение площади треугольника.

+ 0 -

Ilrdn

14 нояб. 2013 г., 20:47:25 (10 лет назад)

var
  // координаты вершин
  c: array [,] of real := ((0,0), (1,0), (0,1));
  sides: array[0..3] of real; // длины сторон
  s,p: real;
  i,n: integer;
begin
  // вычисляем длины сторон
  for i := 0 to 2 do begin
    n := (i+1) mod 3;
    sides[i] := sqrt(sqr(c[i, 0] - c[n, 0]) + sqr(c[i, 1] - c[n, 1]));
    p := p+sides[i]/2;
  end;
  
  // формула Герона
  s := p;
  for i := 0 to 2 do
    s := s * (p - sides[i]);  
  
  writeln(sqrt(s));
end.