掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ハノイの塔の解を教えてください (ID:23506)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ここを参考。 http://www2.cc.niigata-u.ac.jp/~takeuchi/tbasic/BackGround/Hanoi.html var Form1: TForm1; count: Int64; implementation {$R *.dfm} procedure Hanoi(n, A,B,C :Integer); begin If n>0 then begin Hanoi(n-1, A,C,B); Form1.Memo1.Lines.Add(Format('%4d: %d番の円盤を %d から %d へ移動',[count,n-1, A,C])); Inc(count); Hanoi(n-1, C,B,A); end; end; procedure TForm1.Button1Click(Sender: TObject); begin count :=1; Hanoi( StrtoIntDef(Edit1.text,3) , 1 ,2, 3); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.