|
Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
Delphi 10 Seattle Enterprise
|
AW: IF-Anweisung
25. Nov 2011, 17:49
Delphi-Quellcode:
uses
Math
var
Winkel: Integer; // In Zehntelgrad, d.h. 904 = 90,4°
begin
Quadrant = Winkel div 4 + 1;
Vorzeichen = Integer(Sign(cos(DegToRad(Winkel/10))));
end;
Ähhhmmm .... irre ich mich oder ist
Code:
904 mod 4 + 1 = 1 (90,4°)
905 mod 4 + 1 = 2 (90,5°)
906 mod 4 + 1 = 3 (90,6°)
also wohl eher
Kaum macht man's richtig - schon funktioniert's 
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
|