identificationdivision. program-id. lp147. * aus Loecks/Sieber p. 147 author. Jens. date-written. 11.9.2005. date-compiled. datadivision. linkagesection.
77 x pic 9(4).
77 u pic 9(4).
77 y pic 9(4). proceduredivisionusing x u. move 1 to x u performuntil y = 0 if u = 0 then move x to u subtract 1 from y else add 1 to x subtract 1 from u end-if end-perform end-program lp147.
¤ Dauer der Verarbeitung: 0.13 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.