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

[theoneand]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  value: integer;
  count: Integer;
begin
  count := 0;
  value := StrToInt(edit1.Text);
  repeat
    inc(count);
    if odd(value) then
      value := value * 3 + 1
    else
      value := value div 2;
  until value = 1;
  showmessage('Es hat ' + IntToStr(count) + ' Versuche gebraucht');
end;

man kannst auch unnötig kompliziert machen