Программирование на Pascal
Ребят не могу понять в чем проблема.. вроде Arcsin выразил правильно но программа не хочет работать..
program lab_2;
uses crt;
var y,f,x:real;
function arcsin(x:real):real;
begin
Arcsin:=Arctan(x/Sqrt(1-sqr(x)));
end;
begin
clrscr;
x:=0.25;
while x<=3.25 do begin
y:=ln(x*x)-f-x;
f:=arcsin(x);
x:=x+0.25;
writeln('Y=',y:3:3,' F=',f:3:3, ' X=',x:3:3)
end;
readln;
readkey;
end.
дописал функцию арксинуса. . но не помогло..
да я же написал что функцию арксинуса исправил. . но программа все равно выдает ошибку. . на мой взгляд все правильно в формулах точно нет ошибки. . но если поменять арксинус на синус то программа работает нормально. . следователь ошибка связана с арксинусом. . и я не могу найти ее..
function ArcSin ( X : Real ): Real;
begin
if X = 1.0 then { чтобы не было деления на 0 }
ArcSin := Pi / 2.0
else
ArcSin := ArcTan ( X / Sqrt ( 1 - X * X ) );
end;
дописал вот это
обсуждалось
http://otvet.mail.ru/question/13829747/
Для работы синусов и косинусов надо подключить модуль math.