Найти площадь треугольника по трём сторонам в делфи7

Нужно составить программу

Question

Информатика

Анисья

9 сентября, 05:22

Найти площадь треугольника по трём сторонам в делфи7

Нужно составить программу

+1

Ответы (1)

Знаете ответ на вопрос?

Вака · Answer 1

Var a, b, c, s, p : real;

begin

Writeln ('A=') ;

Readln (a) ;

Writeln ('B=') ;

Readln (b) ;

Writeln ('C=') ;

Readln (c) ;

p: = (a+b+c) / 2;

s:=sqrt (abs (p * (p-a) * (p-b) * (p-c))) ; / / формула Герона

Writeln ('S=', s:3:2) ;

Readln;

end.

Найти площадь треугольника по трём сторонам в делфи7Нужно составить программу

Найти площадь треугольника по трём сторонам в делфи7

Нужно составить программу