identificationdivision. program-id. foo. * aus Dirk Hoffmann, * Software-Qualität * p340ff, Springer 2008 author. "JD". date-written. 28.1.2009. date-compiled. datadivision. working-storagesection.
77 i pic 9(4). linkagesection.
77 x pic 9(2).
77 y pic 9(4). proceduredivisionusing x returning y. move 0 to i performuntil i >= 6 add 1 to i divide 2 into x end-perform. endprogram foo.
¤ Dauer der Verarbeitung: 0.15 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.