Задание 1.Помогите написать правильную программу в паскале. Я написала, но с ответом не...

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);

Comments

спасибо большое)))

---

пожалуйста)