Laman

Minggu, 21 Juni 2015

LATIHAN 6 (QUICK SORT)



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 :
  1.  Semua elemen di posisi ke 1 sampai dengan ke I-1 adalah lebih kecil atau sama dengan Sementara.
  2. Semua elemen di posisi ke I+1 sampai dengan ke N adalah lebih besar atau sama dengan Sementara.
Untuk kriteria form sebagai berikut :
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.

3 komentar:

  1. iya? ada apa? ada yang bisa saya bantu? :D

    BalasHapus
  2. programnya dengan saya kok eror dan tidak bisa di mungkin programnya angur kalik ya...

    BalasHapus