Mathe Stunde

[Daniel]

Hallo,

der Sinus von 180° beträgt 0. Die Funktion sin() in Delphi erwartet den Parameter aber als Radiant. Du musst also noch die Funktion "DegToRad" nutzen:

Code:

uses Math;
...
Funktion SinusEinesWinkels( aWinkel : Single ) : Single;
begin
  Result:= sin( DegToRad(aWinkel) );
end;

Jetzt solltest Du auf gleiche Ergebnisse kommen wie Dein Taschenrechner.

Grüße,
Daniel