Zitat von
-lx-:
Danke euch. Aber ich hab es schon anders gelöst bzw. so wie oben!
Delphi-Quellcode:
x := Random(Succ(10- (-10) )) + (-10) ;
y := Random(Succ(10- (-10) )) + (-10) ;
Das ganze kann man doch aber einfacher so schreiben:
Delphi-Quellcode:
x := Random(Succ(20)) -10 ;
y := Random(Succ(20)) -10 ;
Schließlich ist 10 - (-10) = 20 und + (-10) = -10.
Damit erspart man sich Rechenzeit (ja ich weiß das es nicht viel ist) außerdem ist es übersichtlicher.