|
Registriert seit: 7. Apr 2011
8 Beiträge
|
AW: Repeat-Until Schleife X^n
7. Apr 2011, 21:27
Delphi-Quellcode:
var x,m : real
i,n : integer
begin
x:=StrToFloat (Edit1.text);
n:=StrToInt (Edit2.text);
m:=x;
repeat
m:=m*x;
i:=i+1
until i=n
Kommt das so hin?
Geändert von 301200 ( 7. Apr 2011 um 21:34 Uhr)
|