Die Türme von Hanoï

[Matze]

Delphi-Quellcode:

procedure TForm1.BewegeTurm(n: integer; s,z,h: integer);
//n: Scheibenanzahl; s: Startstapel-Nr.; z: Zielstapel-Nr.; h: Hilfsstapel-Nr.
begin
  if n>0 then
  begin
    BewegeTurm(n-1,s,h,z);
    ListBox1.Items.Add(IntToStr(s)+' ==> '+IntToStr(z));
    inc(Schritte);
    BewegeTurm(n-1,h,z,s);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Schritte:=0;
  ListBox1.Clear;
  BewegeTurm(StrToInt(Edit1.Text),1,3,2);
end;