DataMuseum.dk

top - metrics - download

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

└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler)
    └─⟦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,CHR(12),'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.) :=NDOMIZE;
          FOR i := 1 TO max DO  (* Vi finder først nogle tal *)
            v(.i.) := RANDOM(200);
          WRITELN(CLRHOM, 'De usorterede tal er:');
          FOR i := 1 TO max DO
            WRITE(v(.i.) : 4);
          WRITELN;
          i := max;
          REPEAT
            i := i - 1;
            slut := TRUE;
            FOR j := 1 TO i DO