identification division.
program-id. kw130.
* aus Kowalk - Korrekte Software
* p. 130, 3. Prog
author. Jens.
date-written. 5.1.2009.
date-compiled.
data division.
working-storage section.
77 b pic 9(4).
linkage section.
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).
procedure division using t u s r returning a.
compute a =2*t-6*u
compute b=u-t+s
move r to c
perform until cond
compute a = a + 6*u
add a to b
add b to c
end-perform
end-program kw130.
¤ Dauer der Verarbeitung: 0.3 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.
|