Struktur data chapter_11
0 likes120 views
Metode selection sort mengurutkan data dengan cara mencari nilai terkecil/terbesar pada setiap iterasi dan menukar posisinya dengan elemen pada posisi awal. Proses ini dilakukan berulang hingga selesai. Program selection sort dapat mengurutkan data naik atau turun dengan perbedaan hanya pada pencarian nilai terkecil atau terbesar.
![Program Selection_Sort
_Menaik; var
i,j,indexmin,n,temp:integer;
data: array[0..100] of integer;
begin
write (‘Berapa data yang akan diurutkan ? ‘);
readln(n);
for i=0 to n-1 do
begin
write (‘Masukkan data ke-‘ , i+1,’ = ‘);
readln (data[i]);
end;
for i:=0 to n-2 do
begin
indexmin:=i;
for j:=i to n-1 do
begin
if (data [j] <data [indexmin]) then
indexmin:=j;
end;
if ((data[i] <> (data [indexmin])) then
begin
temp:=data [i];
data [i]:=data [indexmin];
data [indexmin]:=temp;
end
end;
writeln (‘Setelah Pengurutan : ‘);
for i:=0 to n-1 do
writeln (‘Elemen ke-‘, i+1,’ = ‘,data[i]);
end.](https://image.slidesharecdn.com/strukturdatachapter11-150505035008-conversion-gate01/85/Struktur-data-chapter_11-6-320.jpg)
![Program Selection_Sort_Menurun;
var
i,j,indexmin,n,temp:integer;
data: array[0..100] of integer;
begin
write (‘Berapa data yang akan diurutkan ? ‘);
readln (n);
for i:=0 to n-1 do
begin
write (‘Masukkan data ke-‘ , i+1,’ = ‘);
readln (data[i]);
end;
for i:=0 to n-2 do
begin
indexmax:=i;
for j:=i to n-1 do
begin
if (data [j] >data [indexmax]) then
indexmax:=j;
end;
if ((data[i] <> (data [indexmax])) then
begin
temp:=data [i];
data [i]:=data [indexmax];
data [indexmax]:=temp;
end
end;
writeln (‘Setelah Pengurutan : ‘);
for i:=0 to n-1 do
writeln (‘Elemen ke-‘, i+1,’ = ‘,data[i]);
end.](https://image.slidesharecdn.com/strukturdatachapter11-150505035008-conversion-gate01/85/Struktur-data-chapter_11-9-320.jpg)
Struktur data chapter_11
- 1. STRUKTUR DATA CH 11: SORTING 1 MeizanoArdhi M., S.T.
- 2. Pengurutan (sorting) diartikan sebagai proses penyusunan kembali sekumpulan objek ke dalam urutan tertentu. Tujuan pengurutan untuk mendapatkan kemudahan dalam pencarian anggota dari suatu himpunan disamping dapat mempercepat mengetahui data terbesar dan data terkecil, misalkan kita ingin mengetahui perolehan nilai tertinggi dan nilai terendah dari hasil ujian. Contoh objek terurutkan seperti daftar isi, daftar pustaka dan lain-lain.
- 3. Proses yang terjadi pada pengurutan adalah sebagai berikut: Perbandingan data. Pertukaran data. Terdapat bermacam-macam metode pengurutan, diantaranya adalah: Selection sort. Bubble sort. Insertion sort.
- 5. Pengurutan Naik (ascending) Proses dari pengurutan dengan menggunakan metode Selection Sort secara terurut naik adalah sebagai berikut: 1. Mencari data terkecil dari data pertama sampai dengan data terakhir, kemudian ditukar posisinya dengan data pertama. 2. Mencari data terkecil dari data kedua sampai dengan data terakhir, kemudian ditukar posisinya dengan data kedua. 3. Mencari data terkecil dari data ketiga sampai dengan data terakhir, kemudian ditukar posisinya dengan data ketiga. 4. Dan seterusnya sampai semua data terurut naik.Apabila terdapat n buah data yang akan diurutkan maka membutuhkan (n-1) langkah pengurutan, dimana data terakhir yaitu data ke-n tidak perlu diurutkan karena hanya tinggal satu-satunya.
- 6. Program Selection_Sort _Menaik; var i,j,indexmin,n,temp:integer; data: array[0..100] of integer; begin write (‘Berapa data yang akan diurutkan ? ‘); readln(n); for i=0 to n-1 do begin write (‘Masukkan data ke-‘ , i+1,’ = ‘); readln (data[i]); end; for i:=0 to n-2 do begin indexmin:=i; for j:=i to n-1 do begin if (data [j] <data [indexmin]) then indexmin:=j; end; if ((data[i] <> (data [indexmin])) then begin temp:=data [i]; data [i]:=data [indexmin]; data [indexmin]:=temp; end end; writeln (‘Setelah Pengurutan : ‘); for i:=0 to n-1 do writeln (‘Elemen ke-‘, i+1,’ = ‘,data[i]); end.
- 7. Tampilan program: Berapa data yang akan diurutkan ? 3 Masukkan data ke-1 = 2 Masukkan data ke-2 = 1 Masukkan data ke-3 = 3 Setelah pengurutan Elemen ke-1 = 1 Elemen ke-2 = 2 Elemen ke-3 = 3
- 8. Pengurutan Turun (Descending) Apabila akan mengurutkan menurun menggunakan metode Selection Sort maka langkah-langkah sebagai berikut: 1. Mencari data terbesar dari data pertama sampai dengan data terakhir, kemudian ditukar posisinya dengan data pertama. 2. Mencari data terbesar dari data kedua sampai dengan data terakhir, kemudian ditukar posisinya dengan data kedua. 3. Mencari data terbesar dari data ketiga sampai dengan data terakhir, kemudian ditukar posisinya dengan data ketiga. 4. Dan seterusnya sampai semua data terurut turun. Apabila terdapat n buah data yang akan diurutkan maka membutuhkan (n-1) langkah pengurutan, dimana data terakhir yaitu data ke-n tidak perlu diurutkan karena hanya tinggal satu-satunya.
- 9. Program Selection_Sort_Menurun; var i,j,indexmin,n,temp:integer; data: array[0..100] of integer; begin write (‘Berapa data yang akan diurutkan ? ‘); readln (n); for i:=0 to n-1 do begin write (‘Masukkan data ke-‘ , i+1,’ = ‘); readln (data[i]); end; for i:=0 to n-2 do begin indexmax:=i; for j:=i to n-1 do begin if (data [j] >data [indexmax]) then indexmax:=j; end; if ((data[i] <> (data [indexmax])) then begin temp:=data [i]; data [i]:=data [indexmax]; data [indexmax]:=temp; end end; writeln (‘Setelah Pengurutan : ‘); for i:=0 to n-1 do writeln (‘Elemen ke-‘, i+1,’ = ‘,data[i]); end.
- 10. Tampilan program Berapa data yang akan diurutkan ? 3 Masukkan data ke-1 = 2 Masukkan data ke-2 = 1 Masukkan data ke-3 = 3 Setelah pengurutan Elemen ke-1 = 3 Elemen ke-2 = 2 Elemen ke-3 = 1
- 11. TERIMAKASIH