Quick Sort merupakan suatu algoritma pengurutan data yang menggunakan
teknik pemecahan data menjadi partisi-partisi,
sehingga metode ini disebut juga
dengan nama partition exchange sort. Untuk memulai irterasi pengurutan,
pertama-tama sebuah elemen dipilih dari data, kemudian elemen-elemen data
akan diurutkan diatur sedemikian rupa, sehingga nilai variabel Sementara berada
di suatu posisi ke I yang memenuhi kondisi sebagai berikut :
- Semua elemen di posisi ke 1 sampai dengan ke I-1 adalah lebih kecil atau sama dengan Sementara.
- Semua elemen di posisi ke I+1 sampai dengan ke N adalah lebih besar atau sama dengan Sementara.
Items
|
Name
|
Caption
|
Text
|
Form
|
-
|
FQuickSort
|
-
|
Label1
|
Label1
|
Masukkan
Nilai
|
-
|
Label2
|
Label2
|
Data
|
-
|
Label3
|
Label3
|
Hasil
|
-
|
Button1
|
Button1
|
Tambah
|
-
|
Button2
|
Button2
|
Proses
|
-
|
Button3
|
Button3
|
Keluar
|
|
Edit1
|
Edit1
|
-
|
{kosongkan}
|
ListBox1
|
ListBox1
|
-
|
{kosongkan}
|
ListBox2
|
ListBox2
|
-
|
{kosongkan}
|
Untuk pengetikan listing program :
double-klik pada tombol Tambah
procedure
TFQuickSort.Button1Click(Sender: TObject);
var
nilai:integer;
begin
if TryStrToInt(Edit1.Text,Nilai) then
ListBox1.Items.Add(IntToStr(nilai));
Edit1.Clear;
Edit1.SetFocus;
end;
double-klik pada tombol Proses
procedure
TFQuickSort.Button2Click(Sender: TObject);
var
indek:Word;
begin
SetLength(Data,ListBox1.Items.Count);
for indek:=0 to ListBox1.Items.Count-1 do
Data[indek]:=StrToInt(ListBox1.Items[indek]);
QuickSort(data,Low(Data),High(Data));
ListBox2.Items.Clear;
for indek:=0 to ListBox1.Items.Count-1 do
ListBox2.Items.Add(IntToStr(data[indek]));
end;
double-klik pada tombol Keluar
procedure
TFQuickSort.Button3Click(Sender: TObject);
begin
close;
end;
setelah pengetikan listing program, lakukan penyimpanan :
·
Save as : untuk menyimpan editor
·
Save Project As : untuk menyimpan
project
Kemudian lakukan pengujian aplikasi dengan menekan tombol fungsi F9.
Mula-mula, masukkan angka 21
13 11 18
24 20 16 . Setelah dialakukan pengurutan
menggunakan metode qiucksort akan tampak hasil proses sebagai berikut.
{CAUTION!!!}
ð
penyimpanan editor dengan project
harus berbeda nama! Misalnya editor = latihan, maka project = latihan1
ð
nama penyimpanan tidak boleh
menggunakan kata yang terdapat pada listing program. Seperti procedure,
function, public, private dan lain-lain.
yeeee :D
BalasHapusiya? ada apa? ada yang bisa saya bantu? :D
BalasHapusprogramnya dengan saya kok eror dan tidak bisa di mungkin programnya angur kalik ya...
BalasHapus