Quelle hanoi.cob Sprache: Cobol

       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.

quality97%

¤ Dauer der Verarbeitung: 0.3 Sekunden ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

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.