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 Thinking Intellekt

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/Sources/formale Sprachen/COBOL/verschiedene-Autoren/Petri-Nets/

Quellcode-Bibliothek

^© Kompilation durch diese Firma

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

Datei: Zetafunction.cob Sprache: Cobol

Untersuchung 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.