DataMuseum.dk

top - download

    Length: 1408 (0x580)
    Types: TextFile
    Names: »BUBBLE2.PAS«

└─⟦08ea08c61⟧ Bits:30003924 PolyPascal programmer
    └─ ⟦this⟧ »BUBBLE2.PAS« 

TextFile

      PROGRAM bubble2;
        
        (* Programmet sorterer en række tal ved bubblesort-metoden *)
        (* Udskriften kommer på printeren                          *)
        
        CONST
          max = 150;
        
        TYPE
          vektor = ARRAY(.1 .. max.) OF INTEGER;
        
        VAR
          v : vektor;
          i, j, byt : INTEGER;
        
        BEGIN
          RANDOMIZE;
          FOR i := 1 TO max DO  (* Vi finder først nogle tal *)
            v(.i.) := RANDOM(200);
          WRITELN(LST, 'De usorterede tal er:');
          FOR i := 1 TO max DO
            BEGIN
              WRITE(LST, v(.i.) : 4);
              IF i MOD 20 = 0
                THEN WRITELN(LST);
            END;
          WRITELN(LST);
          FOR i := max - 1 DOWNTO 1 DO (* Tallene sorteres *)
            FOR j := 1 TO i DO
              IF v(.j.) > v(.j + 1.)
                THEN
                  BEGIN
                    byt := v(.j.);
                    v(.j.) := v(.j + 1.);
                    v(.j + 1.) := byt;
                  END;
          WRITELN(LST);
          WRITELN(LST, 'De sorterede tal er:');
          FOR i := 1 TO max DO
            BEGIN
              WRITE(LST, v(.i.) : 4);
              IF i MOD 20 = 0
                THEN WRITELN(LST);
              END;
          WRITELN(LST);
        END.
«eof»