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

[Dejan Vu]

Zitat von ZyzzFuuark:

Ehlich gesagt ich hatte nie genug Zeit um mich intensiv mit Programmieren mich zu beschäftigen, als Info Nach der Abgabe von diesem Programm bin ich was das Thema Programmieren los...Wie alle in der Klasse froh darüber sind.

Dafür bist Du im sinnlosen Wiederholen von Wörtern einerseits und Weglassen andererseits sowie im dadaistischen Umgang mit der deutschen Grammatik nicht zu toppen.

[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

[Dejan Vu]

Das unterscheidet sich jetzt nicht gravierend von der Lösung in #22, außer, das Deine Lösung für n=1 ein falsches Ergebnis liefert.