Правильно ли?

[ZX Spectrum-128]

Похоже, что перепутаны у тебя arcsin c arccos. Первая программа вполне вроде как корректна.

function ArcSin(X:Extended):Extended;
BEGIN
    IF ROUND(X*10000000)=10000000 THEN ArcSin:=Pi/2 ELSE
    IF ROUND(X*10000000)=-10000000 THEN ArcSin:=-Pi/2 ELSE
    ArcSin:=ArcTan(X/SQRT(1-X*X));
END;

function ArcCos(X:Extended):Extended;
BEGIN
    IF ROUND(X*10000000)=10000000 THEN ArcCos:=0 ELSE
    IF ROUND(X*10000000)=-10000000 THEN ArcCos:=Pi ELSE
    ArcCos:=(Pi/2)-ArcTan(X/SQRT(1-X*X));
END;

А, формулу просто ты написал неверно.

[Vadim7721]

Сообщение от ZX Spectrum-128

Похоже, что перепутаны у тебя arcsin c arccos. Первая программа вполне вроде как корректна.

function ArcSin(X:Extended):Extended;
BEGIN
    IF ROUND(X*10000000)=10000000 THEN ArcSin:=Pi/2 ELSE
    IF ROUND(X*10000000)=-10000000 THEN ArcSin:=-Pi/2 ELSE
    ArcSin:=ArcTan(X/SQRT(1-X*X));
END;

function ArcCos(X:Extended):Extended;
BEGIN
    IF ROUND(X*10000000)=10000000 THEN ArcCos:=0 ELSE
    IF ROUND(X*10000000)=-10000000 THEN ArcCos:=Pi ELSE
    ArcCos:=(Pi/2)-ArcTan(X/SQRT(1-X*X));
END;

А, формулу просто ты написал неверно.

Да, вы правы, спасибо

[Вадим Мошев]

Сообщение от Stilet

А если важен то садись - два.
Повторю: во-первых если память не отшибло аргументы arctan нужно переводить в радианы - это нужно проверить. Во-вторых поставить readln; в конец программы чтоб задержать консоль на экране для просмотра результатов.

Арктангенс берётся не от угла, а от числа. А вот тангенс - от угла.

[Stilet]

Арктангенс берётся не от угла, а от числа. А вот тангенс - от угла.

Ладна, сенсей. Пойду в военкомат )