|
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.16 Sekunden
(vorverarbeitet)
¤
|
schauen Sie vor die Tür
Fenster
Die Firma ist wie angegeben erreichbar.
Die farbliche Syntaxdarstellung ist noch experimentell.
|
