identificationdivision. program-id. div. * Kurt Gödel, 1931 * "On formally undecidable propositions * of principa mathematica" author. "JD". date-written. 11.8.2007. datadivision. linkagesection.
77 x pic 9(4).
77 y pic 9(4).
77 z pic 9(4). proceduredivisionusing x y returning z. * computes x | y move 0 to z. * invariant z < x performuntil x = z*y or z>x add 1 to z end-perform. * z = x | y or z = 0 end-program div.
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.