|
identification division.
program-id. div.
* aus Wirth, systematisches Programmieren p. 31
author. "JD".
date-written. 25.10.2004.
date-compiled.
data division.
working-storage section.
77 q pic 9(4).
linkage section.
77 x pic 9(4).
77 y pic 9(4).
77 r pic 9(4).
procedure division using x y r.
* computes x / y
move 0 to r
move x to q.
* invariant q * y + r = x && r >= 0
perform until q < y
subtract y from q
add 1 to r
end-perform.
* r = x div y
end-program div.
[ Dauer der Verarbeitung: 0.5 Sekunden
(vorverarbeitet)
]
|
