|
identification division.
program-id. winskel.
author. "JD".
date-written. 31.1.2007.
date-compiled.
data division.
working-storage section.
77 P pic 9(16).
77 C pic 9(4).
linkage section.
77 m pic 9(4).
77 n pic 9(4).
77 r pic 9(16).
procedure division using m n r.
* computes r = m * n
move 0 to P
move 1 to C.
perform until C>n
add m to P
add 1 to C
end-perform.
move P to r.
end-program winskel.
¤ Dauer der Verarbeitung: 0.1 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.
|
