Was ist daran falsch? kleiner Quelltext zu Wundersame Zahlen, Zahl gerade oder ungera

[Helmi]

Hallo,

du musst n auch den neuen Wert zuweisen:

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
var 
  n: integer;

begin
  n:= strtofloat (e_zahl.Text);
  e_text.text:= floattostr(n); //sinnfrei, beinhaltet ja das gleiche wie Zeile drüber

  repeat
    If Odd(n) then 
      n := n/2 
    else 
      n := n*3+1;
  until n=1;
end;