identificationdivision. program-id. p23. * aus Nipkow/Paulson/Wenzel * Isabelle/HOL * Springer 2002 author. "JD". date-written. 29.1.2009. date-compiled. datadivision. working-storagesection. linkagesection.
77 m pic 9(4).
77 n pic 9(4).
77 r pic X(8). proceduredivisionusing m n returning r. if (not (m<n)) and (m<n+1) then move"true"to r else move"false"to r end-if. endprogram p23.
¤ Dauer der Verarbeitung: 0.12 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.