|
identification division.
program-id. kw147.
* aus Kowalk - Korrekte Software
* p. 147 ff
author. Jens.
date-written. 5.1.2009 korr. 25.6.2012.
date-compiled.
data division.
working-storage section.
77 aux pic 9(4).
77 i pic 9(4).
linkage section.
77 n pic 9(4).
77 a pic 9(4).
77 c pic 9(4).
77 v pic 9(4).
procedure division using a n c returning v.
move 1 to aux
move a to i
perform until i>n
multiply function f(i) by aux
add c to i
end-perform
move aux to v
end-program kw147.
¤ Dauer der Verarbeitung: 0.0 Sekunden
(vorverarbeitet)
¤
|
schauen Sie vor die Tür
Fenster
Die Firma ist wie angegeben erreichbar.
Die farbliche Syntaxdarstellung ist noch experimentell.
|
