identificationdivision. program-id. dahl-p97. * aus O-J Dahl - Verifiable Programming author. Jens. date-written. 5.1.2009. date-compiled. datadivision. working-storagesection.
77 i pic 9(4).
77 j pic 9(4).
77 te pic 9(4). linkagesection.
77 n pic 9(4).
77 a pic 9(4) occurs 100.
77 y pic 9(4). proceduredivisionusing n a. performvarying i from n by -1 until i < 2 performvarying j from 1 until j > i -1 compute te=j -1 if a(j)>a(te) thenmove a(te) to a(j) end-if end-perform end-perform end-program dahl-p97.
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.