Quellcode-Bibliothek
© Kompilation durch diese Firma
[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]
Datei:
Kowalk-p57.cbl
Sprache: Cobol
|
identification division.
program-id. kw57.
* aus Kowalk - Korrekte Software
* p. 57
author. Jens.
date-written. 5.1.2009.
date-compiled.
data division.
working-storage section.
linkage section.
77 a pic 9(4).
77 b pic 9(4).
77 c pic 9(4).
procedure division using a b c.
move 0 to a
move 1 to b
move 2 to c
perform until a>100
add 2 to a
add a to c
add 2 to a
add 1 to b
add b to c
add c to b
end-perform
end-program kw57.
[ zur Elbe Produktseite wechseln0.1Quellennavigators
Analyse erneut starten
]
|
