sehr schneller Rechner gesucht

[igel457]

Und bitte Integer und div und mod verwenden (Verwendung von Fließkommazahlen kann hier außerdem zu Fehlern führen!):

Delphi-Quellcode:

k : array[1..30] of integer;
sn:integer;
//..
// initialisieren alle k[] = 0
//..   
kpos=1;
sn=0;
repeat
  if c mod 2 = 0 then
  begin
    k[i] := k[i] + sn;
    c := c div 2;
  end
  else
  begin
    sn := 1;
    c := (3 * c + 1) div 2;
  end;
            
  i:=i+1;               
until (i>u) and (sn=0);

Jetzt würde mich die Performance interessieren