Algoritma Pengurutan Data (Bubble Sort)

Pengurutan Dengan menggunakan Bubble Sort


Var

i,k,n,temp:integer;
L:array [1..100] of integer;
Begin
    for i <- 1 to n-1 do
    for k <- n downto i+1 do
        if L[k] < L[k-1] then
        Temp<-L[k];
        L[k]<-L[k-1];
        L[k-1]<-temp;
        end if
    End for
    end for
end.

Untuk Pengurutan Seperti ini ganti Operator [<] menjadi [>]