Funktion von Collatz

[Mathematiker]

Hallo,
ich habe mir den Quelltext mal angesehen. Was für ein Aufwand!
Es reicht:

Delphi-Quellcode:

procedure Collatz(z:int64);
begin
   listbox1.items.add('Folge für '+inttostr(z));
   repeat
     if odd(z) then z:=3*z+1
               else z:=z div 2;
     listbox1.items.add(inttostr(z));
   until z=1;
end;

Mehr brauchst Du nicht. Du kannst ja mal als Startzahlen 1674652263 (1008 Rechenschritte bis 1), oder 1410123943 (erreicht zwischenzeitlich ein Maximum von 7125885122794452160) testen.

Beste Grüße
Mathematiker