So sollte das jetzt passen oder?
Code:
If (cos(winkel*10)>=0) and (cos(winkel*10)=<900) then
Begin
quadrant:= 1;
end;
If (cos(winkel*10)>900) and (cos(winkel*10)<=1800) then
Begin
quadrant:= 2;
end;
If (cos(winkel*10)>1800) and (cos(winkel*10)<=2700) then
Begin
quadrant:= 3;
end;
If (cos(winkel*10)>2700) and (cos(winkel*10)<=3600) then
Begin
quadrant:= 4;
end;
Und ein Winkel im Bereich 900 < winkel 901 wirds nicht geben. Es werden ja nur 1/10° Schritte eingelesen.
Also wären nur möglich 90° oder 90,1°.