Составить программу вычисляющую площадь произвольного треугольника со сторонами a b c в программе pascal

Question

Информатика

Радим

18 декабря, 00:52

Составить программу вычисляющую площадь произвольного треугольника со сторонами a b c в программе pascal

+1

Ответы (1)

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

Танюся · Answer 1

Program prog;

uses crt;

var

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

begin

write ('a = ') ;

readln (a) ;

write ('b = ') ;

readln (b) ;

write ('c = ') ;

readln (c) ;

if (a>0) and (b>0) and (c>0) then

begin

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

s:=sqrt (p * (p-a) * (p-b) * (p-c)) ;

writeln ('S = ', s:0:3) ;

end;

end.