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)
]
|