|
identification division.
program-id. kw233.
* aus Kowalk - Korrekte Software
* p. 233
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).
linkage section.
77 a pic 9(4).
77 rec pic 9(4) occurs 100.
77 rkey pic 9(4) occurs 100.
77 n pic 9(4).
procedure division using n returning a.
perform varying i from 2 until i>n
compute te=i -1
perform varying j from i by -1
until j>2 or rkey(te)>rkey(j)
move rec(te) to rec(j)
compute te=j -1
end-perform
end-perform
end-program kw233.
¤ Dauer der Verarbeitung: 0.20 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.
|
