IdentificationDivision. Program-Id. Max2. EnvironmentDivision. Input-OutputSection. DataDivision. Working-StorageSection.
77 mx Pic S9(8). LinkageSection.
77 a Pic S9(8).
77 b Pic S9(8). ProcedureDivisionusing 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.14 Sekunden
(vorverarbeitet)
¤
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.