Trigonometrische Funktionen im Gradmaß

[Wolfgang Mix]

Der Vollstndigkeit halder poste ich noch die Arcusfunktionen in Gradmaß.
Die mathematischen Zusammenhänge findet ihr im Anhang (Quelle: Gieck - Technische Formelsammlung).
Ungültige Übergabewerte müßt ihr selber abfangen.

Nicht vergessen: Unit math einbinden!

Delphi-Quellcode:

implementation

{$R *.dfm}

function ArcSinus(x:real):real;
begin
    Result:=arcsin(x)*180/pi;
end;

function ArcCosinus(x:real):real;
begin
    Result:=arccos(x)*180/pi;
end;

function ArcTangens(x:real):real;
begin
    Result:=arctan(x)*180/pi;
end;

function ArcCotangens(x:real):real;
begin
    Result:=arctan(1/x)*180/pi;
end;