Форум школьного программирования , решение задач на турбо паскале , решебник по информатике |
Привет, Гость! Войдите или зарегистрируйтесь.
Вы здесь » Форум школьного программирования , решение задач на турбо паскале , решебник по информатике » Решение задач на turbo pascal » Составить алгоритм вычисления высоты треугольника
Составить алгоритм вычисления высоты треугольника, если е-го площадь S, а основание больше высоты на величину a.
uses crt;
var s,h,a:real;
begin
clrscr;
write('Vvedite S i a: ');
readln(s,a);
{исходное уравнение S=h*(h+a)/2}
h:=(-a+sqrt(a*a+8*s))/2;
write('h= ',h:0:2);
readkey
end.
Вы здесь » Форум школьного программирования , решение задач на турбо паскале , решебник по информатике » Решение задач на turbo pascal » Составить алгоритм вычисления высоты треугольника