Почему крашит pascal? я так понял что-то не так с arcsin - Вопросы по Pascal

Вопрос Почему крашит pascal? я так понял что-то не так с arcsin

Регистрация
11 Дек 2013
Сообщения
80
Репутация
0
Спасибо
0
Монет
0
Program lab1;

uses math;

Var X, Y, G: real;

Begin X := 2; Y := 5;

G := (((1 + cos(x+y))/abs(exp(x)-2*y/(1+sqr(x)*sqr(y))))*power(x,3))+(arcsin(Y));

writeln(G);

writeln('Indeterminate')

End.

An unhandled exception occurred at 0040D518: EInvalidOp: Invalid floating point operation 0040D518 00401766
 
Регистрация
15 Май 2013
Сообщения
82
Репутация
1
Спасибо
0
Монет
0
С нормальными данными, а не с арксинусом пяти, и в нормальной записи всё работает нормально. А арксинус в Паскале (в весьма популярном модуле math), конечно же, есть, также как и степень.
И ещё: Program писать необязательно, а, следовательно, и не нужно; инструкциями типа power(x,3) можно проверить работоспособность модуля math, а вообще квадраты и кубы чисел так вычисляют только быдлокодеры; от (arcsin(Y)); тоже дурью попахивает и вовсе даже не потому, что игрек в данном случае почему-то вдруг равен пяти, а просто потому, что дурость - она и есть дурость...
 
Регистрация
28 Авг 2013
Сообщения
75
Репутация
0
Спасибо
0
Монет
0
y:=5
arcsin(Y);
вы меня насмешили.
Ну понятно время военное sin(X)=5 вполне возможно :)
на всякий случай sin от -1 до 1
 
Регистрация
20 Ноя 2013
Сообщения
87
Репутация
-3
Спасибо
1
Монет
0
В паскале нет арксинуса, есть только арктангенс.
Но это мелочи.
Я, конечно, понимаю, что в военное время значение косинуса может достигать четырех, но чтобы синус достигал пяти??
 
Сверху Снизу