identificationdivision. program-id. kw39. * aus Kowalk - Korrekte Software * p. 39 author. Jens. date-written. 5.1.2009. date-compiled. datadivision. working-storagesection.
77 rest pic 9(4). linkagesection.
77 x pic 9(4).
77 y pic 9(4).
77 bruch pic 9(4). proceduredivisionusing x y returning bruch. move 0 to bruch move x to rest performuntil rest < y subtract y from rest add 1 to bruch end-perform end-program kw39.
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.