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