Identification Division.
Program-Id. hdivision.
Author. "Bergeretti/Carre".
* hardware division
Data Division.
Working-Storage Section.
* variables
77 w pic S9(8).
Linkage Section.
77 x pic S9(8).
77 y pic S9(8).
77 q pic S9(8).
77 r pic S9(8).
Procedure Division using x y q r.
* x >= 0 and y > 0
*
move x to r
move 0 to q
move y to w
perform until w>x
multiply 2 by w
end-perform
perform until w = y
multiply 2 by q
divide 2 into w
if w<=r then
subtract w from r
add 1 to q
end-if
end-perform.
End-Program hdivision.
¤ Dauer der Verarbeitung: 0.14 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.
|