Функция arccos в Turbo Pascal 7.0

[d00ker]

Подскажите пожалуйста, как можно написать функцию arccos в Turbo Pascal 7.0 ?

[Tronix]

Function ArcCos(x: Real): Real;
Begin
If x = 0 Then ArcCos := Pi/2
Else ArcCos := ArcTan(Sqrt(1 - Sqr(x)) / x) + Pi * Byte(x < 0)
End;

[d00ker]

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

Function ArcCos(x: Real): Real;
Begin
If x = 0 Then ArcCos := Pi/2
Else ArcCos := ArcTan(Sqrt(1 - Sqr(x)) / x) + Pi * Byte(x < 0)
End;

А вот без

Function

как-нибудь можно? Дело в том, что я на 1 курсе, и Pascal только начался => препод скажет, что

Function

мы еще не проходили!

[Stilet]

Ну а чего нет?
Просто не пиши ее

var ArcCos:Double;
...
If x = 0 Then ArcCos := Pi/2
Else ArcCos := ArcTan(Sqrt(1 - Sqr(x)) / x) + Pi * Byte(x < 0)

[Alex Cones]

Все таки меня поражает система образования - написать функцию arccos без function.

[d00ker]

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

Ну а чего нет?
Просто не пиши ее

var ArcCos:Double;
...
If x = 0 Then ArcCos := Pi/2
Else ArcCos := ArcTan(Sqrt(1 - Sqr(x)) / x) + Pi * Byte(x < 0)

Действительно. Благодарю

[d00ker]

Сообщение от Alex Cones

Все таки меня поражает система образования - написать функцию arccos без function.

Да, нынешняя С.О. оставляет желать лучшего, на самом деле ...