identificationdivision. program-id. lp50. * aus Loecks/Sieber p. 169 author. Jens. date-written. 11.9.2005. date-compiled. datadivision. working-storagesection. 77 y1 pic9(4). 77 y2 pic9(4). 77 y3 pic9(4). linkagesection. 77 x pic9(4). 77 r pic9(4). proceduredivisionusing x r. move0to y1 move1to y2 y3 performuntil y3 > x add1to y1 add1to y2 add y2 to y3 end-perform move y3 to r end-program lp50.
Messung V0.5 in Prozent
¤ 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.0Bemerkung:
(vorverarbeitet am 2026-06-15)
¤
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 und die Messung sind noch experimentell.