|
identification division.
program-id. kw126.
* aus Kowalk - Korrekte Software
* p. 126
author. Jens.
date-written. 5.1.2009.
date-compiled.
data division.
working-storage section.
77 a pic 9(4).
77 b pic 9(4).
linkage section.
77 n pic 9(4).
77 a0 pic 9(4).
77 b0 pic 9(4).
77 x1 pic 9(4).
77 x2 pic 9(4).
77 x3 pic 9(4).
77 y1 pic 9(4).
77 y2 pic 9(4).
77 y3 pic 9(4).
procedure division using b0 x1 x2 x3 y1 y2 y3
returning a0.
move a0 to a
move b0 to b
perform until a>n
compute a = a*x1+b*x2+x3
compute b = a*y1+b*y2+y3
end-perform
end-program kw126.
¤ Dauer der Verarbeitung: 0.16 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.
|
