products/Sources/formale Sprachen/JAVA/openjdk-20-36_src/test/jdk/javax/sound/midi/Gervill/SoftAudioSynthesizer/  image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

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

Datei: boolean.cob   Sprache: Unknown

       identification division.
       program-id. bool.
       author. "Patrick Cousot".
       date-written. 10.3.2006.
       date-compiled.
       data division.
       working-storage section.
         01 b pic X.
           88 xfalse value 0.
           88 xtrue  value 1.
         77 x pic 9(4).
         77 y pic 9(4).
       procedure division.
         perform until false
      * ... 
           if (x = 0) set xtrue to true
           else        set xfalse to true
      * ... 
           if not b 
             compute y = 1 / x
           end-if  
         end-perform.
        end-program bool.

[ Dauer der Verarbeitung: 0.0 Sekunden  (vorverarbeitet)  ]