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...") |
(Refonte) |
||
| Line 1: | Line 1: | ||
{{Solution 4}} | {{Solution 4}} | ||
| − | + | [[Object Pascal Tutorial/fr|Tutoriel de Pascal Objet]] : Sous-programmes / '''Solution de l'exercice''' | |
| + | |||
<syntaxhighlight> | <syntaxhighlight> | ||
(* 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 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|Programming Assignment 4|Enumerated types}} |
| − | |||
| − | |||
| − | |||
| − | |} | ||
Revision as of 20:13, 26 October 2015
│
български (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 ou 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 | → |
