Algoritma Sort

Berikut adalah sebuah contoh algoritma sort, Contoh Algoritma Procedure Bubble dan Contoh Algoritma Procedure SWAP. Semoga dapat menjadi bahan referensi bagi teman-teman yang lagi belajar algoritma dasar.

Algoritma Sort

1. Metode seleksi (Mulai dari data pertama)
   4 1 5 2
   1 4 5 2
   1 4 2 5
   1 2 4 5
2. Metode seleksi (Mulai dari data terakhir)
   4 1 5 2
   4 1 2 5
   1 4 2 5
   1 2 4 5

Procedure Bubble:

(Var Temp:Data:Jumlah_Data:Interger); Var1.2: interger;

Begin

For1:2 To Jumlah_Data Do

For J= Jumlah_Data DownTol Do

If Temp [J] < Temp [J-1]

{
Untuk Descending

}

SWAP (Temp [J], Temp [J-1]);

End

Procedure SWAP:

Var Temp : Char;

Begin

Temp:= A;

A   := B

B   := Temp;

End

Related Posts:

Tweet