Question

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

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<b+c)and(b<c+a)and(c<a+b) then WriteLn('S = ',S(a,b,c))
else WriteLn('Треугольник не существует')
End.

Пример:
a = 3
b = 4
c = 5
S = 6

Answer 2

а тут можно куда нибудь прлепить FOR или WHILE (ОПЕРАТОРЫ ЦИКЛА)?

Answer 3

Вычислить площадь через другие формулы - там синусы, косинусы есть, их можно в ряд Фурье разложить - он как раз через циклы вычисляется))