Ähhhmmm ... also der Code wird so nicht funktionieren. Keiner der Codes.
Erstmal erwartet die Cos-Funktion einen Winkel in
rad, ich lese hier mal raus dass der Winkel in deg eingegeben wird. Zum Anderen ist das Ergebnis des Cosinus eine Zahl zwischen -1 und 1.
Eine Abfrage wie
If (cos(winkel*10)>2700) and (cos(winkel*10)<3600) then
ist also relativ sinnlos.
Wenn der Quadrant und das Vorzeichen des Cosinus ermittelt werden sollen, wäre meine Lösung wie folgt:
Delphi-Quellcode:
uses
Math
var
Winkel: Integer; // In Zehntelgrad, d.h. 904 = 90,4°
begin
Quadrant = Winkel div 900 + 1;
Vorzeichen = Sign(cos(DegToRad(Winkel/10)));
end;