|
identification division.
program-id. expalpha.
author. "JD".
date-written. 25.10.2004.
date-compiled.
data division.
working-storage section.
77 a pic 9(16).
77 c pic 9(4).
linkage section.
77 i pic 9(4).
77 n pic 9(4).
77 r pic 9(16).
77 alpha pic 9(2).
procedure division using i n alpha r.
* computes r = i to the power of n
* operator wurde mit alpha multipliziert
move 1 to a c.
perform until n < c
multiply a by i
multiply a by alpha
add alpha to c
end-perform.
move a to r.
end-program expalpha.
¤ Dauer der Verarbeitung: 0.20 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.
|
