DataMuseum.dk

top - download

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

└─⟦08ea08c61⟧ Bits:30003924 PolyPascal programmer
    └─ ⟦this⟧ »BUBBLE3.PAS« 
└─⟦092727b26⟧ Bits:30005927 Demoprogrammer til Pascal bog (Jet-80)
    └─ ⟦this⟧ »BUBBLE3.PAS« 
└─⟦3702e543b⟧ Bits:30003064 Demoprogrammer A-J til Pascal bog
    └─ ⟦this⟧ »BUBBLE3.PAS« 
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler)
    └─ ⟦this⟧ »BUBBLE3.PAS« 

TextFile

      PROGRAM bubble3;
        
        (* Programmet sorterer en række tal ved bubblesort-metoden *)
        (* Bubblesort med flag                                     *)
        (* Udskriften kommer på skærmen                            *)
        
        CONST
          max = 100;
        
        TYPE
          vektor = ARRAY(.1 .. max.) OF INTEGER;
        
        VAR
          v : vektor;
          i, j, byt : INTEGER;
          slut : BOOLEAN;
          
        BEGIN
          RANDOMIZE;
          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
              IF v(.j.) > v(.j + 1.)
                THEN
                  BEGIN
                    slut := FALSE;
                    byt := v(.j.);
                    v(.j.) := v(.j + 1.);
                    v(.j + 1.) := byt;
                  END;
          UNTIL (i = 1) OR slut;
          WRITELN;
          WRITELN('De sorterede tal er:');
          FOR i := 1 TO max DO
            WRITE(v(.i.) : 4);
          WRITELN;
        END.
«eof»