*---------------------------------------------------
* maximum from 3 values Andreas Spillner/HS-Bremen
* Softwaretechnik Trends Band 44 Heft 4
*---------------------------------------------------
Identification Division.
Program-Id. Max.
Author.NN.
Data Division.
Linkage Section.
77 x pic 9(4).
77 y pic 9(4).
77 z pic 9(4).
77 max pic 9(4).
Procedure Division using x, y, z returning max.
* Beispiel mit Fehler
move 0 to max
if x>z then
move x to max;
if x>z then
move x to max;
if x>z then
move x to max;
* max wird zurückgegeben
End-Program Max.
¤ Dauer der Verarbeitung: 0.19 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
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.
|