IdentificationDivision. Program-Id. Maxi. EnvironmentDivision. Input-OutputSection. DataDivision. Working-StorageSection.
77 mx Pic S9(8). LinkageSection.
77 a Pic S9(8).
77 b Pic S9(8).
77 c Pic S9(8). ProcedureDivisionusing a, b, c. Move a To mx. If b > mx then Move b to mx. If c > mx then Move c to mx. Display"MAX(" a "," b "," c ")=" mx. End-Program Maxi.
¤ Dauer der Verarbeitung: 0.16 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.