Question

Задание 1.Помогите написать правильную программу в паскале. Я написала, но с ответом не сходится, где ошибка? program var_21; var x,C:integer; H:real; begin write('ВВедите гипотенузу C треугольника: '); read(C); write('острый угол x (град): '); read(x); H:=C*sin(x)*cos(x); writeln('Высота треугольника равна',' ', H:5:2); end.

Answer 1

Функции sin, cos и т. д. описаны так, что принимают в качестве аргументов значение в радианах. Вам же нужно вычислять в градусах. Перевод радиан в градусы осуществляется следующим образом: 
H:=C*sin(x*pi/180)*cos(x*pi/180);