|
identification division.
program-id. kw237.
* aus Kowalk - Korrekte Software
* p. 237
author. Jens.
date-written. 5.1.2009.
date-compiled.
data division.
working-storage section.
77 i pic 9(4).
77 j pic 9(4).
77 te pic 9(4).
77 val pic 9.
88 veraendert value 0.
88 unveraendert value 1.
linkage section.
77 rec pic 9(4) occurs 100.
77 rkey pic 9(4) occurs 100.
77 n pic 9(4).
procedure division using rec rkey n.
perform varying i from n by -1 until i<2
perform varying j from 2 until j>i
compute te=j -1
if rkey(te)>rkey(i) then
move rec(i) to rec(te)
end-if
end-perform
end-perform
end-program kw237.
¤ Dauer der Verarbeitung: 0.13 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
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.
|
