|
identification division.
program-id. kw113.
* aus Kowalk - Korrekte Software
* p. 113
author. Jens.
date-written. 5.1.2009.
date-compiled.
data division.
working-storage section.
77 b pic 9(4).
linkage section.
77 limit pic 9(4).
77 a pic 9(4).
77 c pic 9(4).
77 s pic 9(4).
procedure division using c s limit returning a.
move 0 to a
move 1 to b
perform until a>limit
compute a = c*a + s*b
compute b = b/c - a*s/c
end-perform
end-program kw113.
¤ Dauer der Verarbeitung: 0.15 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.
|
