Difference between revisions of "Basic Pascal Tutorial/Chapter 4/Solution/ja"
From Lazarus wiki
Jump to navigationJump to searchm (Kai Burghardt moved page Solution 4/ja to Basic Pascal Tutorial/Chapter 4/Solution/ja: tidy up main name space: create subpage hierarchy for basic Pascal tutorial [cf. [[Special: PermaLink/149778#Clut...) |
m (bypass language bar/categorization template redirect [cf. discussion]) |
||
| (2 intermediate revisions by the same user not shown) | |||
| Line 1: | Line 1: | ||
| − | {{Solution | + | {{Basic Pascal Tutorial/Chapter 4/Solution}} |
4Ga - ハノイの塔の解答例 (著者: Tao Yue, 状態: 原文のまま変更なし) | 4Ga - ハノイの塔の解答例 (著者: Tao Yue, 状態: 原文のまま変更なし) | ||
| Line 54: | Line 54: | ||
{|style=color-backgroud="white" cellspacing="20" | {|style=color-backgroud="white" cellspacing="20" | ||
| − | |[[ | + | |[[Basic Pascal Tutorial/Chapter 4/Programming Assignment/ja|previous]] |
| − | |[[Contents/ja|contents]] | + | |[[Basic Pascal Tutorial/Contents/ja|contents]] |
| − | |[[ | + | |[[Basic Pascal Tutorial/Chapter 5/Enumerated types/ja|next]] |
|} | |} | ||
Latest revision as of 16:20, 20 August 2022
│
български (bg) │
English (en) │
français (fr) │
日本語 (ja) │
中文（中国大陆） (zh_CN) │
4Ga - ハノイの塔の解答例 (著者: Tao Yue, 状態: 原文のまま変更なし)
(* 著者: Tao Yue
日付: 13 July 2000
記述:
ハノイの塔の解答
Version:
1.0 - original version
*)
program TowersofHanoi;
var
numdiscs : integer;
(********************************************************)
procedure DoTowers (NumDiscs, OrigPeg, NewPeg, TempPeg : integer);
(* 変数の説明:
Number of discs -- OrigPegに載っている円盤の数
OrigPeg -- 塔の棒の数
NewPeg -- 塔から移動させる棒のナンバー
TempPeg -- 一時的に置いておくために使う棒のナンバー
*)
begin
(* 最初のベースの場合を処理する -- １つの円盤 *)
if NumDiscs = 1 then
writeln (OrigPeg, ' ---> ', NewPeg)
(* 他のすべての場合を処理する *)
else
begin
(* 最初に一番下の円盤以外の全てを TempPeg に移動させる。その際には NewPeg を一時保存の棒として使う *)
DoTowers (NumDiscs-1, OrigPeg, TempPeg, NewPeg);
(* 次に一番下の円盤を OrigPeg から NewPeg に動かす*)
writeln (OrigPeg, ' ---> ', NewPeg);
(* 最後に一時的に TempPeg にある円盤を NewPeg に動かす。その移動の際、OrigPeg を一時的な棒として使う *)
DoTowers (NumDiscs-1, TempPeg, NewPeg, OrigPeg)
end
end;
(********************************************************)
begin (* Main *)
write ('Please enter the number of discs in the tower ===> ');
readln (numdiscs);
writeln;
DoTowers (numdiscs, 1, 3, 2)
end. (* Main *)
| previous | contents | next |
