products/sources/formale sprachen/Java/openjdk-20-36_src/test/jdk/sun/nio/cs/mapping/  image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

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

Datei: Berg-max2.cob   Sprache: Unknown

       Identification Division.
       Program-Id. Max2.
       Environment Division.
       Input-Output Section.
       Data Division.
       Working-Storage Section.
       77  mx  Pic S9(8).
       Linkage Section.
       77  a   Pic S9(8).
       77  b   Pic S9(8).
       Procedure Division using a, b.
         If a > b  then
           Move a to mx
         else 
           Move b to mx.
         Display "MAX(" a "," b ")=" mx.
       End-Program Max2.               

[ Dauer der Verarbeitung: 0.1 Sekunden  (vorverarbeitet)  ]