identificationdivision. program-id. expalpha. author. "JD". date-written. 25.10.2004. date-compiled. datadivision. working-storagesection.
77 a pic 9(16).
77 c pic 9(4). linkagesection.
77 i pic 9(4).
77 n pic 9(4).
77 r pic 9(16).
77 alpha pic 9(2). proceduredivisionusing i n alpha r. * computes r = i to the power of n * operator wurde mit alpha multipliziert move 1 to a c. performuntil 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.14 Sekunden
(vorverarbeitet)
¤
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.