Trigonometrische Funktionen im Gradmaß

[Wolfgang Mix]

Bei der Frage nach dem Bogenmass finde ich immer wieder fragende Gesichter.
Hier kann man sich schlau machen:

http://de.wikipedia.org/wiki/Bogenma%C3%9F

Gemäß Dreisatz gilt:

alpha(bogen)/alpha(grad)=2*PI/360 Grad
oder
alpha(bogen)=alpha(grad)*PI/180 Grad

woraus folgt:

Delphi-Quellcode:

function sinus(alpha:real):real;
var bogen:real;
begin
   bogen:=alpha*pi/180;
   sinus:=sin(bogen);
end;

function cosinus(alpha:real):real;
var bogen:real;
begin
   bogen:=alpha*pi/180;
   cosinus:=cos(bogen);
end;

function tangens(alpha:real):real;
var bogen:real;
begin
  bogen:=alpha*pi/180;
  tangens:=(sin(bogen)/cos(bogen));
end;

function cotangens(alpha:real):real;
var bogen:real;
begin
    bogen:=alpha*pi/180;
    cotangens:=cos(bogen)/sin(bogen);
end;

Anmerkung:
Bei den Funktionen Tangens und Cotangens wird eventuell durch Null geteilt.
Das muss der Programmierer natürlich abfangen!
Wer es noch einfacher will, schaut sich bitte die Delphi-Funktionen DegToRad
und RadToDeg aus der Unit Math an. Beispiele findest du hier:

http://www.delphibasics.co.uk/ByUnit.asp?Unit=Math