Sorting

Berikut ini algoritma untuk sorting menggunakan metoda Bubble sort :

PROCEDURE sorting(Arr: NumbersArray)

Deklarasi:

I, J :integer;

Temp : integer;

Deskripsi:

For I  1 TO ArraySize-1 do

  For J<-- I+1 TO ArraySize do

  If Arr[I] > Arr[J] then

  Temp <-- Arr[i]

  Arr[i] <-- arr[j]

  Arr[j] <-- temp

  End if

  End for

End for

Berikut ini algoritma sorting menggunakan metoda Selection Sort :

output('jml data : ')

input(n)

for i <-- 1 to n do

output('data ke : ') input(a[i])

end for

for i <-- 0 to n do

min <-- i

   for j<-- i+1 to n do

       if a[j] <>
       min <-- j
       end if
   end For
   if i <> min then
   temp <-- a[i]
   a[i] <-- a[min]
   a[min] <-- temp
   end if
end For
for i <-- 1 to n do
output(a[i])
end for