30 БАЛЛОВ задача вычислить высоту треугольника , опушенную ** сторону а , по известным...

Question

30 БАЛЛОВ
задача
вычислить высоту треугольника , опушенную на сторону а , по известным значениям длин его сторон а,в,с
в чем у меня ошибка？получаются 0 в плошади и высоте

---

Answer 1

И будет результат нулем.  Переменной s значение нигде не присваивается.
Вместо строки writeln('периметр ',a+b+c);  записать   p:=(a+b+c)/2;   writeln('полупериметр ',p);
Вместо строки   writeln('площадь ',sqrt(p*(p-a)*(p-b)*(p-c)));  записать  
s:=sqrt(p*(p-a)*(p-b)*(p-c));    writeln('площадь ',s);

Comments

Еще и переменной p значение не присваивается. Строка p:=a+b+c;

---

Еще и в формуле Герона p - это полупериметр, а не периметр. p:=(a+b+c)/2