Delphi : Mengurutkan Data Metode Quick Sort

Nama           : ANDI KHOIRUDIN

Kelas           : 2-B SMT 2

Jurusan       : Teknik Informatika

STIMIK YADIKA BANGIL 2015

Membuat Program Sederhana ''Mengurutkan Data Metode Quick Sort dengan DELPHI 

Langkah-langkahnya  : 

1. Buka Aplikasi Delphi 

2. Pilih Menu File --> New --> Other --> Console Application 
3. Ketik atau Copykan script di bawah ini 

program Program_Rekursi_Mengurutkan_Data_Metode_Quick_Sort;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Type
TipeArray = string[200];
ArrayUrut = array[1..10000] of TipeArray;

procedure QuickSort(Var x : ArrayUrut;
          Bawah,atas:word);
var
   I, J   : word;
   Sementara : TipeArray;
 Begin
   While Atas > bawah Do
   begin
   I := Bawah;
   J := Atas;
   Sementara := X[Bawah];

   While I < J Do Begin
     While X[J] > Sementara Do J := J - 1;
     X[I] := X[J];
     While (I<J) And (X[I] <= Sementara) Do I := I + 1;
     X[J] := x[I];
   end;

   X[i] := Sementara;
   QuickSort(X, Bawah, I-1);
   Bawah := I + 1;
 end;
end;
Var
  Nama : ArrayUrut;
  N, I : word;
Begin
  writeln ('Nama      : Andi Khoirudin');
  writeln ('Kelas/NIM : 2B/114224042');
  writeln;
  writeln('>>> Program Rekursi Mengurutkan Data Metode Quick Sort <<<');
  writeln;
  Write('Masukkan Jumlah data yang akan diurutkan ?'); ReadLn(N);
  WriteLn;
  WriteLn('Masukkan data :');
  For I:=1 to N Do Begin
     Write('Data ke ',I,' ? '); ReadLn(Nama[I]);
 end;
 for i:= 1 to n do
 begin
 QuickSort(Nama,1,N);
 end;
 WriteLn;
 WriteLn('Data yang telah di urut :');
 WriteLn('-------------------------');
 For I := 1 To N Do
    WriteLn('  --->   ', Nama[I]);
  writeln;
  writeln;
  writeln;
  writeln('>>>----->  Visit : http://indonetizensia.blogspot.com/  <-----<<<');
readln;
 end.

4. Terakhir coba jalankan program dengan tekan F9 atau klik tombol Run , apabila tidak ada pesan kesalahan maka program akan terlihat seperti di bawah ini :

5. Ketika program di coba untuk digunakan maka akan tampil seperti di bawah ini :

Silahkan dikembangkan sendiri programnya. Semoga bermanfaat & Selamat Mencoba
Jika ada kesalahan Mohon maaf dan terima kasih sudah berkunjung