Quellcode-Bibliothek

^© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: hanoi.cob Sprache: Cobol

Original von: verschiedene^©

       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.16 Sekunden (vorverarbeitet) ¤

Download des Quellennavigators
Download des sprechenden Kalenders
in der Quellcodebibliothek suchen

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.