Problem der Wundersamen Zahlen, eigentlich einfache Programmierung

[ZyzzFuuark]

Ich bin noch ein Delphie Anfänger.

Wie programmiere ich das wenn die
zahl n gerade ist n/2 und wenn
zahl n ungerade ist n*3+1 zu rechnen bis man auf 1 kommt und dann auch n = 'Wundersam' herauskommt?

Mit If ist mir schon klar aber wie programmiert man das der pc solange rechnen soll bis er auf eins kommt? Und evt wie viele Rechenschritte er dabei gebraucht hat(wie oft durch 2 und *3+1)

Das ganze wird auch als Problem der wundersamen zahlen bezeichnet

[Sir Rufo]

Pseudo Code

Code:

Solange n > 1 und nicht n in Gemerkte_N
  n zu Gemerkte_N
  Wenn n gerade
    n = n / 2
  sonst
    n = n * 3 + 1
  Ende Wenn
Ende Solange
Wenn n = 1
  wundersam
Ende Wenn

[hoika]

Hallo,

eine Endlosschleife über

repeat

if ??? then Break;

until 1=2;

Heiko