Quellcode-Bibliothek

^© Kompilation durch diese Firma

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

Datei: schach.cob Sprache: Cobol

Original von: verschiedene^©

       identification division.
       program-id. schach.
      * aus Baumgarten Petri-Netze p60
       author. "JD".
       date-written. 16.5.2008.
       date-compiled.
       data division.
       working-storage section.
        77 spieler1     pic 9.
        77 spieler2     pic 9.
        77 schachbrett  pic 9.
        77 spieler1dran pic 9.
        77 spieler2dran pic 9.
        77 blocked      pic 9.
       procedure division.
         display "Spiel gestartet"
         move 0 to spieler2
                   spieler2dran
                   blocked
         move 1 to schachbrett
                   spieler1
                   spieler1dran
         perform until blocked=1
           move 1 to blocked
           if spieler1>0 and spieler1dran then
             subtract 1 from spieler1dran
                              spieler1
              add 1 to spieler2dran
                      schachbrett
              move 0 to blocked
           else if spieler2>0 and spieler2dran then
             subtract 1 from spieler2dran
                              spieler2
             add 1 to spieler1dran
                      schachbrett
              move 0 to blocked
           end-if
         end-perform.
         display "Spiel beendet"
        end-program subs.

¤ Dauer der Verarbeitung: 0.13 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.