30 БАЛЛОВ задача вычислить высоту треугольника , опушенную на сторону а , по известным значениям длин его сторон а,в,с в чем у меня ошибка?получаются 0 в плошади и высоте
Answers & Comments
srzontmp
И будет результат нулем. Переменной 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);
1 votes Thanks 1
srzontmp
Еще и переменной p значение не присваивается. Строка p:=a+b+c;
srzontmp
Еще и в формуле Герона p - это полупериметр, а не периметр. p:=(a+b+c)/2
Answers & Comments
Вместо строки 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);