Zitat von
Luckie:
Wobei man das auch verkürzen könnte:
Delphi-Quellcode:
while i < max do
begin
i := i*i;
end;
Das ist zwar kürzer, bringt aber nicht unbedingt die gleichen Resultate.
Da vor der Schleife richtig = True gesetzt wird, wird (in der Originalversion) die Schleife, unabängig von i und max, mindestens 1 Mal durchlaufen.
In #1 wurde (vermutlich unbeabsichtigt) eine While Schleife benutzt, um eine Repeat Schleife zu simulieren.
also :
Delphi-Quellcode:
repeat
i := i*i;
until i>=max;