В основной программе вводятся стороны треугольника a, b, c. В модуле проверяются неравенства треугольника (a

Question

Информатика

Мотя

8 мая, 21:54

В основной программе вводятся стороны треугольника a, b, c. В модуле проверяются неравенства треугольника (a

+4

Ответы (1)

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

Кикилия · Answer 1

Program n1;

var a, b, c: real;

procedure tr (a, b, c: real) ;

var p, S: real;

begin

if (a
begin

p:=0.5 * (a+b+c) ;

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

write ('S=', S:6:3) ;

end else write ('это не треугольник') ;

end;

begin

readln (a, b, c) ;

tr (a, b, c) ;

end.

/ / тестирование:

ввод: 3 4 5

вывод: S=6.000

ввод: 2 3 4

вывод: S=2.905