Basic Pascal Tutorial/Chapter 4/Solution/fr

From Lazarus wiki
Jump to navigationJump to search

български (bg) English (en) français (fr) 日本語 (ja) 中文(中国大陆) (zh_CN)

Tutoriel de Pascal Objet : Sous-programmes / Solution de l'exercice

(* Auteur:    Tao Yue
   Date:      13 July 2000
   Description:
      Résout les Tours de Hanoï
   Version:
      1.0 - version originale
*)

program TowersofHanoi;

var
   numdiscs : integer;

(********************************************************)

procedure DoTowers (NumDiscs, OrigPeg, NewPeg, TempPeg : integer);
(* Explanation of variables:
      NumDiscs -- nombre de disque sur OrigPeg
      OrigPeg -- numéro du piquet de la tour
      NewPeg -- numéro du piquet où déplacer la tour
      TempPeg -- piquet pour le stockage temporaire
*)

begin
   (* Faites attention à la condition d'arrêt -- un disque *)
   if NumDiscs = 1 then
      writeln (OrigPeg, ' ---> ', NewPeg)
   (* Faites attention à tous les autres cas *)
   else
      begin
         (* En premier, déplacer tous les disques sauf le disque
            du bas vers TempPeg, en utilisant NewPeg comme piquet
            temporaire pour ce transfert *)
         DoTowers (NumDiscs-1, OrigPeg, TempPeg, NewPeg);
         (* Maintenant, déplacer le disque le plus bas depuis OrigPeg
            vers NewPeg *)
         writeln (OrigPeg, ' ---> ', NewPeg);
         (* Finalement, déplacer les disques qui sont actuellement
            sur TempPeg vers NewPeg, en utilisant OrigPeg comme
            piquet temporaire pour ce transfert *)
         DoTowers (NumDiscs-1, TempPeg, NewPeg, OrigPeg)
      end
end;

(********************************************************)


begin    (* Main *)
   write ('Veuillez entrer le nombre de disques dans la tour ===> ');
   readln (numdiscs);
   writeln;
   DoTowers (numdiscs, 1, 3, 2)
end.     (* Main *)
Sommaire