Identification Division.
Program-Id. francez-p32.
Author. "Nissim Francez".
* "aus Program Verification"
Data Division.
Working-Storage Section.
77 q pic S9(8).
77 r pic S9(8).
Linkage Section.
77 x1 pic S9(8).
77 x2 pic S9(8).
Procedure Division using x1 x2.
l0.
display "start".
l1.
move 0 to q
move x1 to r
l4.
if r>=x2 then
go to l5
else
add 1 to q
subtract x2 from r
go to l4
end-if.
l5.
display "halt r=" r " q=" q
End-Program francez-p32.
¤ Dauer der Verarbeitung: 0.13 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.
|