|
Identification Division.
Program-Id. divisio.
Author. "Hoare".
* ".. Informatik-Handbuch Rechenberg/Romberger"
Data Division.
Working-Storage Section.
77 div pic S9(8).
77 quo pic S9(8).
77 rem pic S9(8).
Linkage Section.
77 x pic S9(8).
77 y pic S9(8).
Procedure Division using x y.
* Berechnung von Quotient und Rest
move zero to div quo
move x to rem
perform until rem < y
subtract y from rem
add 1 to quo
end-perform
* nun ist quo = x div y, rem x mod y
End-Program divisio.
[ Dauer der Verarbeitung: 0.1 Sekunden
(vorverarbeitet)
]
|
