Sinus/Cosinus mit Winkeln der Einheit Grad benutzen |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
Das Problem ist, dass Delphi mit Winkeln im Bogenmaß rechnet. Will man vom gewohnten Grad-System weiterhin ausgehen, kann man zwei kleine Funktionen benutzen, die einem das Umrechnen ersparen:
function sinus(angle: Real): Real;
begin
result := sin(Pi*angle/180);
end;
function cosinus(angle: Real): Real;
begin
result := cos(Pi*angle/180);
end;
Alternativ können die Konvertierfunktionen RadToDeg und DegToRad aus der Unit Math und anschließend die "normalen" Sinus- und Cosinus-Funktionen verwendet werden.
Ähnliche Seiten: