identification division.
program-id. tp627.
* aus Herold/Lutz/Wohlrab
* Grundlagen der Informatik
* p. 627
author. JD.
date-written. 3.11.2008.
date-compiled.
data division.
working-storage section.
77 w pic 9(8).
77 r pic 9(8).
77 i pic 9(8).
linkage section.
77 summ pic 9(8).
procedure division using summ.
* alle Zahlen zwischen 1 und 10 aufaddieren
perform varying i from 1 by 1 until i>10
compute summ=function succ(summ)
end-perform.
end-program tp627.
¤ Dauer der Verarbeitung: 0.15 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
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.
|