identification division.
program-id. lp147.
* aus Loecks/Sieber p. 147
author. Jens.
date-written. 11.9.2005.
date-compiled.
data division.
linkage section.
77 x pic 9(4).
77 u pic 9(4).
77 y pic 9(4).
procedure division using x u.
move 1 to x u
perform until y = 0
if u = 0 then
move x to u
subtract 1 from y
else
add 1 to x
subtract 1 from u
end-if
end-perform
end-program lp147.
¤ Dauer der Verarbeitung: 0.27 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.
|