Ich habe gerade mal mit diesem Quelltext getestet und bei der Zahl kommt ein Ergebnis bei raus :
Delphi-Quellcode:
procedure TForm13.Btn_1Click(Sender: TObject);
var
x, z : Int64;
begin
if TryStrToInt64(edit1.Text, x) then
x := strtoint(edit1.Text)
else
x := 0;
z := 0;
if (x = 0) or (x < 0) then
showmessage('Die Zahl muss mindestens 1 sein!')
else
begin
while (x>1) do
begin
if (x mod 2 = 0) then
begin
x:= x div 2;
Inc(z);
end
else
begin
x := x * 3 + 1;
Inc(z);
end;
label1.Caption := 'Nach ' + inttostr(z) + ' Schritten kommt 1 heraus.';
end;
end;
end;
Und habe mir erlaubt Deinen Quelltext noch ein wenig zu verbessern.