Difference between revisions of "Basic Pascal Tutorial/Chapter 4/Solution/fr"
From Lazarus wiki
Jump to navigationJump to search (Created page with "{{Solution 4}} 4Ga - Solution des tours de Hanoï (auteur: Tao Yue, état: traduit) <syntaxhighlight> (* Auteur: Tao Yue Date: 13 July 2000 Description: R...") |
m (bypass language bar/categorization template redirect [cf. discussion]) |
||
(6 intermediate revisions by 4 users not shown) | |||
Line 1: | Line 1: | ||
− | {{Solution | + | {{Basic Pascal Tutorial/Chapter 4/Solution}} |
− | + | [[Basic Pascal Tutorial/fr|Tutoriel de Pascal Objet]] : Sous-programmes / '''Solution de l'exercice''' | |
− | <syntaxhighlight> | + | |
+ | <syntaxhighlight lang=pascal> | ||
(* Auteur: Tao Yue | (* Auteur: Tao Yue | ||
Date: 13 July 2000 | Date: 13 July 2000 | ||
Description: | Description: | ||
− | + | Résout les Tours de Hanoï | |
Version: | Version: | ||
1.0 - version originale | 1.0 - version originale | ||
Line 22: | Line 23: | ||
NumDiscs -- nombre de disque sur OrigPeg | NumDiscs -- nombre de disque sur OrigPeg | ||
OrigPeg -- numéro du piquet de la tour | OrigPeg -- numéro du piquet de la tour | ||
− | NewPeg -- numéro du piquet | + | NewPeg -- numéro du piquet où déplacer la tour |
TempPeg -- piquet pour le stockage temporaire | TempPeg -- piquet pour le stockage temporaire | ||
*) | *) | ||
Line 37: | Line 38: | ||
temporaire pour ce transfert *) | temporaire pour ce transfert *) | ||
DoTowers (NumDiscs-1, OrigPeg, TempPeg, NewPeg); | DoTowers (NumDiscs-1, OrigPeg, TempPeg, NewPeg); | ||
− | (* Maintenant, déplacer le | + | (* Maintenant, déplacer le disque le plus bas depuis OrigPeg |
vers NewPeg *) | vers NewPeg *) | ||
writeln (OrigPeg, ' ---> ', NewPeg); | writeln (OrigPeg, ' ---> ', NewPeg); | ||
− | (* | + | (* Finalement, déplacer les disques qui sont actuellement |
sur TempPeg vers NewPeg, en utilisant OrigPeg comme | sur TempPeg vers NewPeg, en utilisant OrigPeg comme | ||
piquet temporaire pour ce transfert *) | piquet temporaire pour ce transfert *) | ||
Line 51: | Line 52: | ||
begin (* Main *) | begin (* Main *) | ||
− | write (' | + | write ('Veuillez entrer le nombre de disques dans la tour ===> '); |
readln (numdiscs); | readln (numdiscs); | ||
writeln; | writeln; | ||
Line 58: | Line 59: | ||
</syntaxhighlight> | </syntaxhighlight> | ||
− | { | + | {{Tutorial page navigation/fr|Chapter 4/Programming Assignment|Chapter 5/Enumerated types}} |
− | |||
− | |||
− | | | ||
− |
Latest revision as of 16:20, 20 August 2022
│
български (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 | → |