Zitat von
Sven M.:
Macht's euch doch nicht so schwierig...
Delphi-Quellcode:
if zahl<=0
then
begin
for i:=1
to zahl
do
begin
dec(zahl);
end;
end;
Deine Methode macht eine negative Zahl nur noch negativer. Wenn schon, dann musst du auf > 0 prüfen und dann eine Schleife von 1 bis 2*zahl laufen lassen
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."