![Procedure Asc_Selection;
Var
Min,pos : byte;
Begin
For I := 1 to max – 1 do
Begin
Pos:=1;
For j := I + 1 to max do
If data[j] < data[pos] then pos :=j;
If I<> pos then
TukarData(data[I],data[pos]);
End;
End;](https://image.slidesharecdn.com/strukturdata-pertemuan11-180330181653/85/Pertemuan-11-Sorting-5-320.jpg)
Pertemuan 11 Sorting
- 1. Pertemuan 11 Dosen : Endang Retnoningsih, M.Kom www.endangretno.com SORTING
- 2. Memaafkan diri sendiri terkadang lebih sulit daripada memaafkan orang lain
- 3. Operasi Pengurutan (Sorting) adalah operasi yang sangat banyak dilakukan dalam ‘Bussiness Data Processing’. Dalam hal ini pengurutan yang dilakukan adalah secara Ascending (menaik dari kecil ke besar) Macam-macam Sorting (Pengurutan) : 1. SELECTION SORT 2. BUBBLE SORT 3. MERGE SORT 4. QUICK SORT 5. INSERTION SORT 6. HEAP SORT
- 4. 1. SELECTION SORT Metode pengurutan Selection Sort Prosedur atau Algoritmanya : 1. Pengecekan dimulai dari data ke –1 sampai dengan data ke – n 2. Tentukan bilangan dengan index terkecil dari data bilangan tersebut 3. Tukar bilangan dengan index terkecil tersebut dengan bilangan pertama (I = 1) dari data bilangan tersebut 4. Lakukan langkah 2 dan 3 untuk bilangan berikut (I = I + 1), sampai didapatkan urutan yang optimal.
- 5. Procedure Asc_Selection; Var Min,pos : byte; Begin For I := 1 to max – 1 do Begin Pos:=1; For j := I + 1 to max do If data[j] < data[pos] then pos :=j; If I<> pos then TukarData(data[I],data[pos]); End; End;
- 7. 2. BUBBLE SORT Metode pengurutan Bubble Sort Prosedur atau Algoritmanya : 1. Pengecekan dimulai dari data ke-1 sampai dengan data ke-n. 2. Bandingkan data ke-n dengan data sebelumnya (n-1), jika lebih kecil maka tukar bilangan tersebut dengan data yang ada didepannya (sebelumnya) satu-persatu (n-1, n-2, n-3, ….dst). 3. Lakukan langkah ke-2 sampai didapatkan urutan yang optimal.
- 10. 3. MERGE SORT Metode pengurutan Merge Sort Prosedur atau Algoritmanya : 1. Kelompokkan deret bilangan kedalam 2 bagian, 4 bagian, 8 bagian… dst.. 2. Urutkan secara langsung bilangan dalam kelompok tersebut. 3. Lakukan langkah ke-1 dan ke-2 untuk kondisi bilangan yang lain sampai didaptkan urutan yang optimal.
- 13. VIDEO ANIMASI MERGE SORT #1
- 14. VIDEO ANIMASI MERGE SORT #2
- 15. 4. QUICK SORT (PARTITION – EXCHANGE SORT) Sangat baik untuk tabel data yang sangat besar. Algoritma atau Prosedur Quick Sort adalah sbb: 1. Tentukan bilangan yang dinyatakan sebagai batas bawah (lower Bound(l=1)) dan bilangan yang dinyatakan sebagai batas atas (Upper Bound(i=N)) 2. Syarat pemindahan adalah LB > UP, dengan melihat perbandingan antara UB (awal bilangan) dan LB (akhir bilangan).
- 16. 3. Jika LB > UB lakukan pertukaran antara kedua bilangan tersebut, jika tidak lakukan perpindahan LB (i=i+1, i=i+2…) ke bilangan selanjutnya dan bandingkan kembali dengan UB (i=N, i=N-1, i=N-2, ….). 4. Lakukan langkah 2 dan 3 untuk bilangan selanjutnya sampai didatkan urutan yang optimal.
- 19. 5. INSERTION SORT Digunakan untuk melakukan insert suatu record dalam record-record yang telah diurutkan. Algoritma atau Prosedur Insertion Sort adalah sbb: 1. Pengecekan dimulai dari data ke-1 sampai dengan data ke-n. 2. Pengurutan dilakukan dengan cara memandingkan data ke-I (dimana I dimulai dari data ke-2 sampai dengan data yang terakhir).
- 20. 3. Bandingkan data ke-I tersebut dengan data sebelumnya (i-1), jika lebih kecil maka data tersebut dapat disisipkan ke data awal (depan) sesuai dengan posisi yang seharusnya. 4. Lakukan langkah ke-2 dan 3 untuk bilangan selanjutnya (i=i+1) sampai dengan didaptkan urutan yang optimal.
- 23. 6. HEAP SORT Tujuan dari Heap sort adalah mencari bilangan terbesar dari data dalm deret bilangan: Algoritma atau Prosedur Heap Sort adalah sbb: 1. Buat (create) sebuah Heap dengan data-data yang sudah ditentukan. Bandingkan Heap dengan element selanjutnya (next element), jika next element>Heap maka jadikan next element tersebut sebagai sebuah Root. Kerjakan cabang kiri terlebih dahulu, kemudian kerjakan cabang kanan.
- 26. TERIMA KASIH