Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Denken Kreativität

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/sources/formale Sprachen/Cobol/verschiedene-Autoren/Petri-Nets/ (Columbo Version 0.7^©) Datei vom 21.4.2008 mit Größe 1 kB

Quelle schach.cob Sprache: Cobol

       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.

quality100%

¤ Dauer der Verarbeitung: 0.14 Sekunden (vorverarbeitet) ¤

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.