Составить программу в паскале используя функции или процедуры, которая будет вычеслять площадь треугольника по трем сторонам. в программе выполнить проверку существования треугольника

Question

Информатика

Рая

28 сентября, 04:10

Составить программу в паскале используя функции или процедуры, которая будет вычеслять площадь треугольника по трем сторонам. в программе выполнить проверку существования треугольника

+1

Ответы (1)

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

Всеволод · Answer 1

Function S (a, b, c:real) : real;

Var

p:real;

Begin

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

result:=Sqrt (p * (p-a) * (p-b) * (p-c))

End;

Var

a, b, c:real;

Begin

Write ('a = ') ; ReadLn (a) ;

Write ('b = ') ; ReadLn (b) ;

Write ('c = ') ; ReadLn (c) ;

if (a
End.

Пример:

a = 3

b = 4

c = 5

S = 6