Sorting Data - Tugas Struktur Data

<p>met siang friend, Beberapa hari yang lalu gue dapat tugas nih sorting data, bersyukur pas waktu obok- obok di situs dapet deh hasilnya . terus copy paste dechh.... hi curang yaaa .... :)<br /></p><p><strong><br /></strong></p><p><strong>Sorting </strong></p> <p>Beberapa metode sorting mengurutkan data yang dikenal antara lain adalah:<br /><strong>1. Bubble Sort (sederhana tetapi lambat)<br />2. Quick Sort (cepat tetapi rumit)<br />3. Shell Sort (agak cepat dan tidak terlalu rumit)</strong></p> <p><strong>1. Bubble Sort<br /></strong>Teknik ini menyusun data yang diinginkan secara berurutan dengan membandingkan elemen data yang ada, misalkan kita akan meyusun data secara (ascending) cacah naik. Maka lagoritma utamanya adalah seperti ini.</p> <p>SYNTAX</p> <p class="code">for i:=1 to Jumlah_data-1 do<br />for j:=i+1 to Jumlah_data do<br />if Data[i]>Data[j] then<br />begin<br />t:=Data[i];<br />Data[i]:=Data[j];<br />Data[j]:=t;<br />end;</p> <p>Contoh.<br />Misal kita punya data : 5 3 8 4 1 7 6 2 , dalam program<br />program mengurutkandata;</p> <p class="code">uses WinCrt;<br />type urutkan=array [1..8] of integer;<br />var i,j,t:integer;<br />anu:urutkan;<br />begin<br />anu[1]:=5; anu[2]:= 3;<br />anu[3]:= 8; anu[4]:= 4;<br />anu[5]:= 1; anu[6]:= 7 ;<br />anu[7]:=6 ; anu[8]:=2 ;<br />for i:=1 to 7 to<br />begin<br />for j:=i+1 to 8 to<br />begin<br />if anu[i]>anu[j] then<br />begin<br />t:=anu[i];<br />anu[i]:=anu[j];<br />anu[j]:=t;<br />end;<br />end;<br />end;<br />for i:=1 to 8 do<br />write (anu[i], ‘ ‘)<br />end.</p> <p><strong>2. Shell sort<br /></strong>Prinsipnya hampir sama dengan bubble sort tetapi dioptmisisasi sehingga lebih cepat. Ditemukan oleh Donald Shell. prinsipnya adalah membandingkan data dengan jarak tertentu dalam array.<br />SYNTAX</p> <p class="code">for jarak:= (Jumlah_data div 2) down to 1 do<br />for i:=1 to Jumlah_data-jarak do<br />if Data[i]>Data[i+jarak] then<br />begin<br />t:=Data[i];<br />Data[i]:=Data[i+jarak];<br />Data[i+jarak]:=t;<br />end;</p> <p>Misalkan kita punya 8 data. Langkah pertama adalah membandingkan data pertama dengan ke lima, dsb. Jarak antara data adalah (8 div 2 :=4).<br />Langkah iterasi:<br />pertama, jarak adalah 4.<br />5 3 8 4 1 7 6 2<br />ke-1 perbandingan : ^ ^ (salah urutan, tukar)<br />1 3 8 4 5 7 6 2<br />ke-2 perbandingan : ^ ^ ( urutan benar, no tukar)<br />ke-3 perbandingan : ^ ^ (salah urutan, tukar)<br />1 3 6 4 5 7 8 2<br />ke-4 perbandingan : ^ ^ (salah urutan, tukar)<br />1 3 6 2 5 7 8 4 —-> Jarak 3.<br />ke-5 perbandingan : ^ ^ ( urutan benar, no tukar)<br />ke-6 perbandingan : ^ ^ ( urutan benar, no tukar)<br />ke-7 perbandingan : ^ ^ ( urutan benar, no tukar)<br />ke-8 perbandingan : ^ ^ ( urutan benar, no tukar)<br />ke-9 perbandingan : ^ ^ (salah urutan, tukar)<br />1 3 6 2 4 7 8 5 —-> Jarak 2.<br />ke-10 perbandingan :^ ^ ( urutan benar, no tukar)<br />ke-11 perbandingan : ^ ^ (salah urutan, tukar)<br />1 2 6 3 4 7 8 5<br />ke-12 perbandingan : ^ ^ (salah urutan, tukar)<br />1 2 4 3 6 7 8 5<br />ke-13 perbandingan : ^ ^ ( urutan benar, no tukar)<br />ke-14 perbandingan : ^ ^ ( urutan benar, no tukar)<br />ke-15 perbandingan : ^ ^ (salah urutan, tukar)<br />1 2 4 3 6 5 8 7 —-> Jarak 1.<br />ke-16 perbandingan :^ ^ ( urutan benar, no tukar)<br />ke-17 perbandingan : ^ ^ ( urutan benar, no tukar)<br />ke-18 perbandingan : ^ ^ (salah urutan, tukar)<br />1 2 3 4 6 5 8 7<br />ke-19 perbandingan : ^ ^ ( urutan benar, no tukar)<br />ke-20 perbandingan : ^ ^ (salah urutan, tukar)<br />1 2 3 4 5 6 8 7<br />ke-21 perbandingan : ^ ^ ( urutan benar, no tukar)<br />ke-22 perbandingan : ^ ^ (salah urutan, tukar)<br />1 2 3 4 5 6 7 8</p> <p><strong>3. quick sort<br /></strong>diketemukan oleh E. Hoare. Dengan menggunakan metode rekursi samapi habis. Prinsipnya membagi data menjadi dua bagian yang sama (kiri dan kanan). Dimana data tengah menjadi pivot (pusat operasi). Kumpulkan data dengan nilai lebih kecil dari pivot disebelah kiri pivot, dan di kanan untuk yang lebih besar. Dimungkinkan bagian kiri dan kanan pivot tidak sama besarnya. Untuk itu tiap bagin di bagi menjadi dua lagi dan mempuyi pivot yang baru. Contoh misal kita mempunyai data array integer.</p> <p class="code">procedure qsort(bawah, atas : integer)<br />var kiri, kanan, pivot : integer;<br />begin<br />pivot:=Data[(bawah+atas) div 2];<br />kiri:=bawah;<br />kanan:=atas;<br />while kiri<=kanan do<br />begin<br />while Data[kiri] < pivot do kiri:=kiri+1; { memisahkan ke kiri }<br />while Data[kanan]>pivot do kanan:=kanan-1;{Memisahkan ke kanan}<br />if kiri<=kanan then { chek perubahan }<br />begin<br />swap Data[kiri] with Data[kanan];<br />kiri:=kiri+1;<br />kanan:=kanan-1;<br />end;<br />end;<br />if kanan>bawah then qsort(bawah,kanan);{ urutkan bagian KIRI }<br />if atas>kiri then qsort(kiri ,atas);{ urutkan bagian KANAN}<br />end;</p> <p>Pemangilan dalam program utama : <strong>qsort(1,NumberOfData);</strong></p><p><span style="font-size:78%;">alamat aslinya coding nih </span><span style="font-size:78%;">(http://k4n9m4s.wordpress.com/2007/09/25/pemrograman-pascal-07/)</span></p><p><span style="font-size:78%;"><span style="font-size:100%;">sorry ya brow gue copy paste </span><br /></span></p><p><span style="font-size:78%;"><br /></span></p>

Sorting Data - Tugas Struktur Data

met siang friend, Beberapa hari yang lalu gue dapat tugas nih sorting data, bersyukur pas waktu obok- obok di situs dapet deh hasilnya . te...

Read more »