Collatz mit Pascal

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
<code id="601dd15d4e45d">
var zahl, zaehler: uint64;
</code>
<run id="601dd15d4e4bd">
begin

  while true do
  begin

    zaehler := 0;
    zahl := 7;
    if zahl <= 1 then break;
    while zahl > 1 do
      begin
        if zahl mod 2 = 0 then zahl := zahl div 2
        else zahl := 3*zahl + 1;
        zaehler := zaehler + 1;
        writeln('Zahl: ', zahl, ' Schritt: ', zaehler);
      end;
   end;
</run>