Zitat von
x000x:
dreheUm(-Winkel) setze ich den Winkel wieder auf 0 zurück, egal welchen Wert Winkel hat...
Delphi-Quellcode:
procedure Stift.dreheUm(pWinkel: Zahl);
begin
derTastaturpuffer.check;
zWinkel:=zWinkel+pWinkel;
repeat
if zWinkel>=360 then zWinkel:=zWinkel-360;
until zWinkel<360;
end;
...mach das doch bitte mal an hand dieses Beispieles:
[edit=turboPASCAL]Beispiel entfernt[/edit]