|
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.15 Sekunden
(vorverarbeitet)
¤
|
schauen Sie vor die Tür
Fenster
Die Firma ist wie angegeben erreichbar.
Die farbliche Syntaxdarstellung ist noch experimentell.
|
