Langsung ke konten utama

StruktuR Data Modul 10

MODUL 10 SORT Definisi Sort Sort adalah proses pengurutan data yang sebelumnya disusun secara acak sehingga menjadi tersusun secara teratur menurut suatu aturan tertentu. Pada umumnya terdapat 2 jenis pengurutan :  Ascending (Naik)v  Descending (Turun)v Contoh : Data Acak : 5 6 8 1 3 25 10 Terurut Ascending : 1 3 5 6 8 10 25 Terurut Descending : 25 10 8 6 5 3 1 Untuk melakukan proses pengurutan tersebut dapat digunakan berbagai macam cara / metoda. Beberapa metoda diantaranya : a) Buble / Exchange Sort b) Selection Sort c) Insertion Sort d) Quick Sort Bubble / Exchange Sort Memindahkan elemen yang sekanag dengan elemen yang berikutnya, jika elemen sekarang > elemen berikutnya, maka tukar Proses : Langkah 1 :
Pengecekan dapat dimulai dari data paling awal atau paling akhir. Pada contoh di samping ini pengecekan di mulai dari data yang paling akhir. Data paling akhir dibandingkan dengan data di depannya, jika ternyata lebih kecil maka tukar. Dan pengecekan yang sama dilakukan terhadap data yang selanjutnya sampai dengan data yang paling awal. 
Proses di atas adalah pengurutan data dengan metoda bubble ascending. Untuk yang descending adalah kebalikan dari proses diatas. Berikut penggalan listing program Procedure TukarData dan Procedure Bubble Sort. Procedure TukarData Procedure TukarData(var a,b : word); Var c : word; Begin c:=a; a:=b; b:=c; end; Procedure Bubble Sort Ascending Procedure Asc_Bubble(var data:array; jmldata:integer); Var i,j : integer; Begin For i:= 2 to jmldata do For j:= jmldata downto I do If data[j] <> data[j-1] then Selection Sort Membandingkan elemen yang sekarang dengan elemen yang berikutnya sampai dengan elemen yang terakhir. Jika ditemukan elemen lain yang lebih kecil dari elemen sekarang maka dicatat posisinya dan kemudian ditukar. Dan begitu seterusnya. Proses : 
Proses pengurutan di atas adalah dengan metoda selection Ascending. Untuk descending hanyalah kebalikan dari proses di atas. Berikut penggalan listing program Procedure Selection Sort secara ascending Procedure Selection Sort Ascending Procedure Asc_Selection; Var min, pos : byte; Begin For i:= 1 to max-1 do Begin Pos:=i; For j:= i+1 to max do If data[j] <> pos then tukardata(data[i],data[pos]); end; end; untuk pngurutan secara desending, anda hanya perlu mengganti baris ke-8 sbb : if data[pos] < onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh2vduIt_OatJU9KmnmCJoky9xGsQEhOnt4TifKsAYInUJM00ALlYI0vFkhnoV3dOkhiVxdGN9myIGLxUi4wYtab4Mltz0WmGEoOFdhI8fAzuqgX3lHEjhdFGfw6ex_t3Y2z9UDsAxVj2A2/s1600-h/modul+10+gb4.JPG">
Procedure Insertion Sort Ascending Procedure Asc_Insert; Var i , j , temp : byte; Begin For i := 2 to max do Begin Temp :=data[i]; j := i-1; while (data[j] > temp) and (j>0) do begin data[j+1] := data[j]; dec(j); end; data[j+1]:=temp; end; end; Untuk pengurutan secara descending anda tinggal mengganti baris ke 8 dengan baris berikut ini : While(data[j]0)do QUICK SORT Membandingkan suatu elemen (disebut pivot) dengan elemen yang lain dan menyusunnya sedemikian rupa sehingga elemen- elemen lain yang lebih kecil daripada pivot tersebut terletak di sebelah kirinya dan elemen-elemen lain yang lebih besar daripada pivot tersebut terletak di sebelah kanannya. Sehingga dengan demikian telah terbntuk dua sublist, yang terletak di sebelah kiri dan kanan dari pivot. Lalu pada sublist kiri dan sublist kanan kita anggap sebuah list baru dan kita kerjakan proses yang sama seperti sebelumnya. Demikian seterusnya sampai tidak terdapat sublist lagi. Sehingga didalamnya telah terjadi proses Rekursif. Proses : Bilangan yang di dalam kurung merupakan pivot Persegi panjang yang digambarkan dengan garis terputus-putus menunjukkan sublist. i bergerak dari sudut kiri ke kanan sampai mendapatkan nilai yang >= pivot. j bergerak dari sudut kanan ke kiri sampai menemukan nilai yang < onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhJRKIT0SUzR-2fcaVIo9ZeKo9hbk10R6hQPsQFIeu1kiRbca5yzICWl3L4NU4hWZXOjJPuTRi4DSbzDgFRhrdFGic8JUQC1Ig7HCRFC_ivoVZVbtjSOVuMoIPzICMs7mu0Ma27MHeUjm2d/s1600-h/modul+10+gb5.JPG">
i berhenti pada index ke-1 karena langsung mendapatkan nilai yang > dari pivot (15). j Berhenti pada index ke-6 karena juga langsung mendapatkan nilai yang < onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjJaxdCM79nXRyaHCvzq1mpmAgowSNCf9KpmY8hS_gGM1elPs6SsaaUSaVWDl3whJh-7rWWHJDSiBTtaxE5vAqoY3tDoOY8uCq_tSa2tvTysrlsxTVjjMTIlBPVSJf_e6EA6qgMdQUyCXPp/s1600-h/modul+10+gb6.JPG">
i berhenti pada index ke-3 (pivot) karena tidak menemukan bilangan yang > dari pivot. j berhenti pada index k-5 menunjuk pada nilai yang < onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiuT-gCEqHukcX66Fen_Mi-aO2j00DbA1mkbfl9wrWZfd_2HpekXAVsruadGybfw06jkNxK79GiuPekBtc59QrmPAqIACXBZgnWUqABybL8yiT46rsdxAG2u9eibH00XyJLT-lQPVn3RaBh/s1600-h/modul+10+gb7.JPG">
Procedure Quisort dengan nilai paling kiri sebagai pembanding (pivot). Procedure Asc_Quick(L,R : Integer); Var i, j:integer; Begin If L= data[1]; repeat dec(j) until data[j] <= data[1]; if i <> j; tukardata (data[1], data[j]); Asc_Quick(L,j-1); Asc_Quick(j+1,R); End; End; Untuk pengurutan secara descending anda tinggal mengganti tanda aritmatik pada baris k 8 dan 9 sehingga menjadi seperti baris berikut : repeat inc(i) until data[i] >= data[l]; repeat dec(j) until data[j] <= data[l]; Procedure Quick Sort dengan nilai tengah sebagai pembanding (pivot). Procedure Asc_Quick(L,R : Integer); Var mid, i, j : integer; begin i:= L; j:=R mid := data[(L+R) div 2]; repeat while data[i] <> mid do dec(j); if i <> j; if L <> R then Asc_Quick(i , R); end; Untuk pengurutan secara descending, anda hanya perlu mengganti baris ke-6 & 7 sbb : while data[j] <> mid do dec(k); Latihan Soal beserta jawaban (Listing program) dan penjelasan. Anda diminta membuat sbuah program sorting dengan metode bubl sort. Mintalah user untuk memasukkan 10 angka. Lalu tampilkan angka-angka trsebut setelah disort baik secara ascending maupun descendeing 
jawaban : uses crt; const max = 10; Type arr = array[1..max] of byte; Var i : byte; Data : arr; Procedure Input; begin Clrscr; Writeln (‘Masukkan 10 data’); Writeln (‘= = = = = = = = = =’); For i := 1 to max do {input 10 data} begin write(‘Data ke-‘, i ,’=’); readln(data[i]); end; Clrscr; For i := 1 to max do Write(data[i],’ ‘); Writeln; Writeln (‘ * * * * * * * * * * * * * * *); Writeln (‘Data yang telah diurutkan :’); end; Procedure Change (var a,b :byte); {procedure untuk menukar data} Var c : byte; Begin c := a; a := b; b := c; end; Procedure Asc_Buble; {pengurutan secara ascending} Var p,q : byte; flaq : boolean; begin flaq:=false; p:=2; while (p

Komentar

Postingan populer dari blog ini

Cara Instal Appserv 2.5.10 di Wndows 7

hehe untuk kali nhe , sya mw coba share cara instal appserv d windows seven, walau ini info lama , tp mdah2an bsa membantu agan2 ,,, langkah2 nha yaitu : download appserv 2.5.10 nya di APPSERVNETWORK jalankan appserv.exe nya. pada tampilan form berikut, pada server name isikan dengan "localhost" (tanpa tanda kutip) dan pada administration email address isikan dengan email anda misalnya lawlietsan1302@gmail.com pada form password , pada enter root password , isikan dengan "root" dan re password , isikan dengan root. setelah itu , pilih instal... tunggu hingga finis.. lalu coba anda buka localhost pada web browser.. setelah muncul tampilan, pilih maka akan muncul form autentikasi, isikan pada username/nama pengguna dengan "root" dan pada password dengan "root"... lalu tekan ok... ok, dan selesai,, selamat mencoba :)