 |
Арксинус
function arcsin(x:fload):fload;
var a,result:fload;
begin
textcolor(12);
arcsin:=0;
result:=0;
if not((x>=-1)and(x<=1))
then
writeln('Неверный "x"!')
else
if (x=1)or(x=-1)
then
result:=pi*x/2
else
result:=arctan(x/(sqrt(1-x*x)));
arcsin:=(180/pi)*result;
textcolor(15);
end;
|
