Identification Division.
Program-Id. francez-p49.
Author. "Nissim Francez".
* "aus Program Verification"
Data Division.
Linkage Section.
78 eps value 0.0001.
77 x pic S9(8)V9(3) comp-2.
Procedure Division using x.
l0.
display "start".
l.
if x>=eps then
go to le
else
divide 2 into x
go to l
end-if.
le.
display "halt x=" x
End-Program francez-p49.
¤ 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.
|