Quellcode-Bibliothek
© Kompilation durch diese Firma
[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]
Datei:
Sprache: Unknown
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.
[ Verzeichnis aufwärts0.15unsichere Verbindung
Übersetzung europäischer Sprachen durch Browser
]
|
|