Quellcode-Bibliothek
© Kompilation durch diese Firma
[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]
Datei:
expalpha.cob
Sprache: Unknown
|
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.1 Sekunden
(vorverarbeitet)
]
|
