identificationdivision. program-id. lp43. * aus Loecks/Sieber p. 43 author. Jens. date-written. 11.9.2005. date-compiled. datadivision. working-storagesection.
77 y1 pic 9(4).
77 y2 pic 9(4). linkagesection.
77 x pic 9(4).
77 y3 pic 9(4). proceduredivisionusing x returning y3. move 0 to y1 move 1 to y2 y3
testx. if y3 <= x then add 1 to y1 add 2 to y2 add y2 to y3 goto testx end-if * y3 is the result end-program lp43.
¤ 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.0.13Bemerkung:
(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.