Quellcode-Bibliothek

^© Kompilation durch diese Firma

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

Datei: bubblesort.cob Sprache: Cobol

Original von: verschiedene^©

      *@OPTIONS MAIN
      IDENTIFICATION DIVISION.
      PROGRAM-ID. BUBSORT.
      ENVIRONMENT DIVISION.
      CONFIGURATION SECTION.
      INPUT-OUTPUT SECTION.
      FILE-CONTROL.
      SELECT INPUTDATA
      ASSIGN TO 'G:\AssignmentFiles\inputdata.txt'
      ORGANIZATION IS LINE SEQUENTIAL.
      SELECT outputdata
      ASSIGN TO 'G:\AssignmentFiles\outputdata.txt'
      ORGANIZATION IS LINE SEQUENTIAL.

      DATA DIVISION.
      FILE SECTION.
      FD INPUTDATA.
      01 INPUTREC.
      05 FIELD1 PIC 9(2).
      05 FILLER PIC X(1).
      05 field2 PIC X(3).
      05 FILLER PIC X(74).

      FD OUTPUTDATA.
      01 OUTPUTREC.
      05 FIELD1OUT PIC 9(2).
      05 FILLER PIC X(1).
      05 FIELD2OUT PIC X(3).
      05 FILLER PIC X(74).

      WORKING-STORAGE SECTION.
      01 ARE-THERE-MORE-RECORDS PIC XXX VALUE 'YES'.
      88 THERE-ARE-NO-MORE-RECORDS VALUE 'NO '.

      01 DUMMY-TABLE.
      05 DUMMY-FIELD1 PIC 9(2).
      05 FILLER PIC X(1) VALUE SPACES.
      05 DUMMY-FIELD2 PIC X(3).
      05 FILLER PIC X(74) VALUE SPACES.

      01 BUB-SORT-TABLE.
      03 BUB-SORT-FIELDS OCCURS 20 TIMES.
      05 BUBFIELD1 PIC 9(2).
      05 FILLER PIC X(1) VALUE SPACES.
      05 BUBFIELD2 PIC X(3).
      05 FILLER PIC X(74) VALUE SPACES.
      01 TABLE-COUNTER1 PIC 99 VALUE ZEROS.
      01 TABLE-COUNTER2 PIC 99 VALUE ZEROS.
      01 SAVE-CODE PIC 9(2) VALUE ZEROS.
      01 TABLE-MAX PIC 9(2) VALUE 20.


      PROCEDURE DIVISION.

      100-MAIN-MODULE.
      OPEN INPUT INPUTDATA
      OUTPUT OUTPUTDATA
      INITIALIZE BUB-SORT-TABLE
      PERFORM UNTIL ARE-THERE-MORE-RECORDS = 'NO '
      READ INPUTDATA
      AT END
      MOVE 'NO ' TO ARE-THERE-MORE-RECORDS
      NOT AT END
      PERFORM 200-BUBSORT-RTN
      END-READ
      END-PERFORM
      CLOSE INPUTDATA
            OUTPUTDATA
      STOP RUN.

      200-BUBSORT-RTN.
      ADD 1 TO TABLE-COUNTER1
      ADD 2 TO TABLE-COUNTER2
      MOVE INPUTREC TO DUMMY-TABLE
      MOVE DUMMY-TABLE TO BUB-SORT-TABLE
      EVALUATE TRUE
      WHEN BUBFIELD1(TABLE-COUNTER2) LESS THAN BUBFIELD1(TABLE-COUNTER1)
      MOVE BUBFIELD1(TABLE-COUNTER2) TO SAVE-CODE
      MOVE BUBFIELD1(TABLE-COUNTER1) TO BUBFIELD1(TABLE-COUNTER2)
      MOVE SAVE-CODE TO BUBFIELD1(TABLE-COUNTER1)
      END-EVALUATE
      WRITE OUTPUTREC from BUB-SORT-TABLE.

¤ Dauer der Verarbeitung: 0.3 Sekunden (vorverarbeitet) ¤

Download des Quellennavigators
Download des 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.