Delphi 7

Latihan 7 Quick Sort (pengurutan cepat)

buat interface seperti gambar dibawah ini.
Petunjuk pembuatan interfacenya coba disini

interface program

komponen yang terdapat didalamnya yaitu :
- Button1
- Button2
- Button3
- Edit1
- Label1
- Label2
- Label3
- Label4
- Listbox1
- Listbox2

listing program1

listing program 2

listing program 3

Keterangan :
pada BUTTON1 berisi ;
var 
nilai:integer
begin
  //menambahkan nilai ke listbox____________tanda // atau remark menunjukkan 
  if TryStrToInt(Edit1.Text,Nilai) then     penjelasan rumus bisa diganti
  ListBox1.Items.Add(IntToStr(nilai));      dengan tanda {}
  //membersihkan komponen inputan nilai
  Edit1.Clear;
  //focus kursor ke inputan nilai
  Edit1.SetFocus;___________________SetFocus membuat kursor berpindah dan
end;                                tampak

pada BUTTON2 berisi ;
var
  indek:Word;
begin
  //menentukan panjang array
  SetLength(Data,ListBox1.Items.Count);
  //pemasukan nilai ke array
  for indek:=0 to ListBox1.Items.Count-1 do
  Data[indek]:=StrToInt(ListBox1.Items[indek]);
  //proses pengurutan/sorting
  QuickSort(data,Low(Data),High(Data));
  //kosongkan hasil
  ListBox2.Items.Clear;
  //memasukkan nilai hasil
  for indek:=0 to ListBox1.Items.Count-1 do
  ListBox2.Items.Add(IntToStr(data[indek]));
end;

pada BUTTON3 berisi ;
begin
  close;

running program

Pada gambar 1 menunjukkan awal program yang sedang berjalan. pada gambar 2 mulai memasukkan angka yang akan diurutkan. pada gambar 3 terdapat angka 3, 9, dan 1 yang telah dimasukkan di kotak 'Data' untuk diproses pada program. pada gambar 4 telihat hasil pengurutan data dari yang terkecil ke terbesar pada kotak 'Hasil'.