Ich vermute mal, dies wird helfen (ungetestet)
Delphi-Quellcode:
else
repeat
begin
res := base*base;
i := i+1;
end[;
until i = exp;
[Edit] Sorry, überflüssig, himi war schneller und hat hat natürlich recht
Wo war der rote Kasten? [/Edit]
BTW: Herzlich willkommen in der
DP 