Delphi 7. Линейные алгоритмы.

[Юрий2009]

Заданы координаты трех вершин треугольника (х1,у1) (х2,у2) (х3,у3). Найти периметр и площадь. Составьте, пожалуйста, прогарамму. Заранее СПАСИБО!!!!!

[Sazary]

http://programmersforum.ru/showthread.php?t=37035
Там вторая задача идентичная вашей.
Пользуйтесь поиском.

[MalCer]

var
a,b,c,p,s: real;
begin
  a :=strtoint(edit1.text);
  b :=strtoint(edit2.text);
  c :=strtoint(edit3.text);
  p :=(a+b+c)/2;
  s :=sqrt(p*(p-a)*(p-b)*(p-c);
Label1.Caption :='площадь треугольника= '+floattostr(s);
end;

Во!!! Это нахождение через полупериметр, просто по другому я не знаю как найти площадь тр-ка