identificationdivision. program-id. kw130. * aus Kowalk - Korrekte Software * p. 130, 3. Prog author. Jens. date-written. 5.1.2009. date-compiled. datadivision. working-storagesection.
77 b pic 9(4). linkagesection.
77 a pic 9(4).
77 t pic 9(4).
77 u pic 9(4).
77 s pic 9(4).
77 r pic 9(4).
77 c pic 9(4). proceduredivisionusing t u s r returning a. compute a =2*t-6*u compute b=u-t+s move r to c performuntil cond compute a = a + 6*u add a to b add b to c end-perform end-program kw130.
¤ Dauer der Verarbeitung: 0.12 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.