|
identification division.
program-id. apt-p81.
* aus Apt-Olderog - Programmverifikation
author. Jens.
date-written. 5.1.2009.
date-compiled.
data division.
working-storage section.
77 x pic 9(4).
77 counter pic 9(4).
77 h pic 9(4).
linkage section.
77 n pic 9(4).
77 y pic 9(4).
procedure division using n returning y.
move 0 to x
move 1 to y
move n to counter
perform until counter<=0
move y to h
add x to y
move h to x
subtract 1 from counter
end-perform
end-program apt-p81.
¤ Dauer der Verarbeitung: 0.17 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.
|
