identificationdivision. program-id. tp627. * aus Herold/Lutz/Wohlrab * Grundlagen der Informatik * p. 627 author. JD. date-written. 3.11.2008. date-compiled. datadivision. working-storagesection.
77 w pic 9(8).
77 r pic 9(8).
77 i pic 9(8). linkagesection.
77 summ pic 9(8). proceduredivisionusing summ. * alle Zahlen zwischen 1 und 10 aufaddieren performvarying i from 1 by 1 until i>10 compute summ=function succ(summ) end-perform. end-program tp627.
¤ Dauer der Verarbeitung: 0.14 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.