Quellcode-Bibliothek

^© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: Highlight.jar Sprache: Cobol

Original von: verschiedene^©

       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.31 Sekunden (vorverarbeitet) ¤

Druckansicht unsichere Verbindung
Druckansicht sprechenden Kalenders
in der Quellcodebibliothek suchen

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.