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

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 (aelse WriteLn('Треугольник не существует')
End.

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

Comments

спасииибо огромное

---

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

---

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