Impressum Dahl-p41.cbl
Interaktion und PortierbarkeitCobol
identificationdivision. program-id. dahl-p41. * aus O-J Dahl - Verifiable Programming author. Jens. date-written. 5.1.2009. date-compiled. datadivision. working-storagesection.
77 x pic 9(4).
77 q pic 9(4).
77 r pic 9(4). linkagesection.
77 m pic 9(4).
77 n pic 9(4).
77 y pic 9(4). proceduredivisionusing m n returning y. move m to x move n to y
lab1. compute q=x/y compute r=function mod(x,y) if r=0 thenstoprun else move y to x move r to y end-if goto lab1 end-program dahl-p41.
¤ 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.0.14Bemerkung:
Wie Sie bei der Firma Beratungs- und Dienstleistungen beauftragen können
¤
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.