function GradSin(gradus : real) : real;
var rad : real;
begin
rad := gradus*Pi/180;
GradSin:= sin(rad);
end;
sin() cos() и все такое... в паскале
sin(30); чет нето выводит
GRAD=RAD*180/Pi. Т.е. твои 30 радиан в градусах: GRAD=30*180/Pi=1719.7452229299363057324840764331. Как видишь, ты пытаешься померять 1719 градусов вместо 30. Вот тебе функция, которая будет вычислять синус в градусах:
Код:
Если компилер заругается на Pi, поменяй на 3.14
Цитата:
Так аргумент он принимает в радианах, а не в градусах, поэтому когда пишешь sin(30) это будет в радианах. Вспоминаем ещё известную со школы формулу перевода градусов в радианы.
GRAD=RAD*180/Pi. Т.е. твои 30 радиан в градусах: GRAD=30*180/Pi=1719.7452229299363057324840764331. Как видишь, ты пытаешься померять 1719 градусов вместо 30.
Теперь понятно в чем было дело!
Спасибо!