Quellcode-Bibliothek
© Kompilation durch diese Firma
[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]
Datei:
division.cob
Sprache: Unknown
|
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.0 Sekunden
(vorverarbeitet)
]
|
|
