|
Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
FreePascal / Lazarus
|
AW: Repeat-Until Schleife X^n
7. Apr 2011, 15:15
Delphi-Quellcode:
...
count:=1;
if X>1 then
repeat
x:=x*x;
count:=count+1;
until count>=n;
Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
|