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 y pic S9(4).
77 z pic S9(4). linkagesection.
77 x pic S9(2).
77 r pic S9(4). proceduredivisionusing x returning r. if x<0 then move 2 to y else move 1 to y. iffunction mod(x,2)=1 then move 2 to z else move 1 to z. add y z giving r. endprogram foo.
¤ Dauer der Verarbeitung: 0.11 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.