Winkelfunktionen im Gradmaß

[qb-tim]

Diese Funktionen berechnen Winkelfunktionen im Gradmaß (statt im Bogenmaß)

Delphi-Quellcode:

function DegCos(i: Real): Real;
begin
  Result := Cos(i * (Pi / 180));
end;

function DegSin(i: Real): Real;
begin
  Result := Sin(i * (Pi / 180));
end;

function DegTan(i: Real): Real;
begin
  Result := Tan(i * (Pi / 180));
end;

Die Methode ist ganz einfach und kann auf jede Winkelfunktion, die normalerweise im Bogenmaß operiert, angewendet werden

Delphi-Quellcode:

// ersetze ??? mit einer Winkelfunktion

function Deg???(i: Real): Real;
begin
  Result := ???(i * (Pi / 180));
end;

Manchmal muss man im uses noch Math hinzufügen!

[Dax]

Das ist sinnlos. Siehe DegToRad, RadToDeg etc..

[Kroko1999]

Zitat:

Zitat von Dax

Das ist sinnlos. Siehe DegToRad, RadToDeg etc..

in der Unit Math, also

Delphi-Quellcode:

uses Math;

hinzufügen, :wink: