Übersicht > Türme von Hanoi > Pascal

Die Türme von Hanoi in Pascal

{***************************************************************}
{   Die Türme von Hanoi                           Lizenz: GPL   }
{                                                               }
{   (c) 2002  Roland Illig <1illig@informatik.uni-hamburg.de>   }
{***************************************************************}

program hanoi;

procedure bewege(a, b, c: Char; n: Integer);
{ Bewegt n Scheiben von Turm a nach Turm c und benutzt als Zwi- }
{ schenspeicher Turm b.                                         }
begin
  if n = 1 then
    WriteLn('Lege die oberste Scheibe von Turm ',
            a, ' auf Turm ', c, '.')
  else
    begin
      bewege(a, c, b, n-1);
      bewege(a, b, c, 1);
      bewege(b, a, c, n-1);
    end;
end;

begin
  bewege('a', 'b', 'c', 5);
end.