IdentificationDivision. Program-Id. franzec-p155. Author. "Nissim Francez". * "aus Program Verification" DataDivision. LinkageSection. * variables
77 x pic S9(8).
77 y pic S9(8). ProcedureDivisionusing x y. perform Power2. stoprun.
Power2. if x=0 then move 1 to y else subtract 1 from x perform power2 add 1 to x multiply 2 by y end-if. display"x="x" y="y End-Program franzec-p155.
¤ 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.