IdentificationDivision. Program-Id. francez-p49. Author. "Nissim Francez". * "aus Program Verification" DataDivision. LinkageSection.
78 eps value 0.0001.
77 x pic S9(8)V9(3) comp-2. ProcedureDivisionusing x.
l0. display"start".
l. if x>=eps then goto le else divide 2 into x goto l end-if.
le. display"halt x=" x End-Program francez-p49.
¤ Dauer der Verarbeitung: 0.0 Sekunden
(vorverarbeitet)
¤
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.