products/sources/formale Sprachen/Cobol/verschiedene-Autoren/Petri-Nets/  image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

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

Datei: Valk p55.cob   Sprache: Cobol

Original von: verschiedene©
       identification division.
       program-id. bound-live-reversible.
      * aus Valk-Girault Petri-Nets p55
       author. "JD".
       date-written. 16.5.2008.
       date-compiled.
       data division.
       working-storage section.
        77 p1       pic 9.
        77 p2       pic 9.
        77 p3       pic 9.
        77 p4       pic 9.
        77 p5       pic 9.
        77 p6       pic 9.
        77 blocked  pic 9.
       procedure division.
         display "gestartet"
         move 0 to p2 p3 p4 p5 blocked 
         move 1 to p1 p6
         perform until blocked=1
           move 1 to blocked
           if p1>0 then 
             subtract 1 from p1 
             add 1 to p2 p4
             move 0 to blocked
           else if p2>0 and p6 >0 then 
             subtract 1 from p2 p6 
             add 1 to p3 p6
             move 0 to blocked
           else if p4>0 and p6 >0 then 
             subtract 1 from p4 p6 
             add 1 to p5 p6
             move 0 to blocked
           else if p3>0 and p5>0 then 
             subtract 1 from p3 p5 
             add 1 to p1
             move 0 to blocked
           end-if 
         end-perform.
         display "beendet"
        end-program subs.

¤ Dauer der Verarbeitung: 0.20 Sekunden  (vorverarbeitet)  ¤



Kontakt
Drucken
Kontakt
sprechenden Kalenders

in der Quellcodebibliothek suchen




schauen Sie vor die Tür

Fenster


Die Firma ist wie angegeben erreichbar.

Die farbliche Syntaxdarstellung ist noch experimentell.


Bot Zugriff