|
identification division.
program-id. hanoi is recursive.
* aus Visual Prolog 6.3
* PDC Broendby, DK
author. "JD".
date-written. 20.7.2006.
date-compiled.
data division.
working-storage section.
77 n1 pic 9(4).
78 A value 1.
78 B value 2.
78 C value 3.
linkage section.
77 n pic 9(4).
77 leftc pic 9(4).
77 middlec pic 9(4).
77 rightc pic 9(4).
procedure division using n leftc middlec rightc.
* Towers of Hanoi
if n <=0 then display "Must be greater 0"
else
subtract 1 from n giving n1
call hanoi using n1 leftc rightc middlec
display "moving "leftc" to "rightc
call hanoi using n1 middlec leftc rightc
end-if.
end-program hanoi.
identification division.
program-id. main.
author. "JD".
date-written. 20.7.2006.
date-compiled.
data division.
working-storage section.
77 n pic 9(4).
77 A pic 9 value 1.
77 B pic 9 value 2.
77 C pic 9 value 3.
procedure division.
* Call Towers of Hanoi
accept n
call hanoi using n A B C
end-program main.
¤ Dauer der Verarbeitung: 0.0 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
