PROGRAM
PENGURUTAN
Pengurutan
data (sorting) didefinisikan sebagai suatu proses untuk menyusun
kembali
humpunan obyek menggunakan aturan tertentu. Mnurut Microsoft Book-shelf,
definisi
algoritma pengurutan adalah algoritma untuk meletakkan kumpulan elemen data
ke
dalam urutan tertentu berdasarkan satu atau beberapa kunci dalam tiap-tiap
elemen.
Ada
dua macam urutan yang biasa digunakan dalam proses pengurutan yaitu
•
urut naik (ascending) yaitu dari data yang mempunyai nilai paling kecil
sampai paling
besar
•
urut turun (descending) yaitu data yang mempunyai nilai paling besar
sampai paling
kecil.
Contoh
: data bilangan 5, 2, 6 dan 4 dapat diurutkan naik menjadi 2, 4, 5, 6 atau
diurutkan
turun
menjadi 6, 5, 4, 2. Pada data yang bertipe char, nilai data dikatakan lebih
kecil atau
lebih
besar dari yang lain didasarkan pada urutan relatif (collating sequence)
seperti
dinyatakan
dalam tabel ASCII (Lampiran)
Keuntungan
dari data yang sudah dalam keadaan terurutkan antara lain :
•
data mudah dicari (misalnya dalam buku telepon atau kamus bahasa), mudah untuk
dibetulkan,
dihapus, disisipi atau digabungkan. Dalam keadaan terurutkan, kita
mudah
melakukan pengeekan apakah ada data yang hilang
•
melakukan komppilasi program komputer jika tabel-tabel simbol harus dibentuk
•
mempercepat proses pencarian data yang harus dilakukan berulang kali.
48
Data
yang diurutkan sangat bervariasi, dalam hal jumlah data maupun jenis data
yang
akan diurutkan. Tidak ada algoritma terbaik untuk setiap situasi yang kita
hadapi,
bahkan
cukup sulit untuk menentukan algoritma mana yang paling baik untuk situasi
tertentu
karena ada beberapa faktor yang mempengaruhi efektifitas algoritma pengurutan.
Beberapa
faktor yang berpengaruh pada efektifitas suatu algoritma pengurutan antara
lain:
•
banyak data yang diurutkan
•
kapasitas pengingat apakah mampu menyimpan semua data yang kita miliki
•
tempat penyimpanan data, misalnya piringan, pita atau kartu, atau media
penyimpan
yang
lain.
Pemilihan
algoritma sangat ditentukan oleh struktur data yang digunakan. Metode
pengurutan
yang digunakan dapat diklasifikasikan menjadi dua katagori yaitu :
•
pengurutan internal, yaitu pengurutan dengan menggunakan larik (array).
Larik
tersimpan
dalam memori utama komputer
•
pengurutan eksternal, yaitu pengurutan dengan menggunakan berkas (sequential
access file).
Berkas tersimpan dalam pengingat luar, misalnya cakram atau pita
magnetis.
Untuk
menggambarkan pengurutan dengan larik, bisa kita bayangkan semua kartu
terletak
di hadapan kita sehingga semua kartu terlihat dengan jelas nomornya. Pada
penyusunan
kartu sebagai sebuah berkas, kita bayangkan semua kartu kita tumpuk
sehingga hanya kartu bagian atas
saja yang bisa kita lihat nomornya.
Ini adalah sebuah program urut
dengan masukan 4 nama buah, yang kemudian akan di keluarkan secara berurutan
berdasarkan abjad. Pengurutan dalam program ini dapat kita lakukan secara
Ascending ataupun Descending. Berikut adalah Source Code dari program urut
beserta gambarnya.
Berikut ini
adalah contoh source code
dari ascending
dan descending....
Program Urut;
uses wincrt;
label
1,2;
var x : array[0..3] of string;
y : array[0..3] of string;
pilih : char;
i : integer;
procedure Ascending;
var
i, j, tempatnya_max : integer;
max, temp : string;
begin
for j := 0 to 3 do
begin
max := x[j];
for i := j to 3 do
begin
if (x[i]
<= max) then
begin
max := x[i];
tempatnya_max := i;
end;
end;
temp := x[j];
x[j] := x[tempatnya_max];
x[tempatnya_max] := temp;
end;
clrscr;
gotoXY(5,17); writeln('Hasil data yang telah di urut secara Ascending');
for i := 0 to 3 do
begin
gotoxy(25,19+i); write(x[i]);
end;
end;
procedure Descending;
var
i,j, tempatnya_min : integer;
min, temp : string;
begin
for j := 0 to 3 do
begin
min := x[j];
for i := j to 3 do
begin
if (x[i] >= min) then
begin
min := x[i];
tempatnya_min := i;
end;
end;
temp := x[j];
x[j] := x[tempatnya_min];
x[tempatnya_min] := temp;
end;
clrscr;
gotoXY(5,17); writeln('Hasil data yang telah di urut secara Descending');
for i := 0 to 3 do
begin
gotoxy(25,19+i); write(x[i]);
end;
end;
begin { Program Utama }
1 : gotoxy(5,1); writeln('Masukkan 4
nama buah');
write('Masukkan nama buah 1 : ');
readln(x[0]);
write('Masukkan nama buah 2 : ');
readln(x[1]);
write('Masukkan nama buah 3 : '); readln(x[2]);
write('Masukkan nama buah 4 : '); readln(x[3]);
clrscr;
for i := 0 to 3 do
begin
y[i] := x[i];
end;
repeat
2 : gotoxy(15,15); clrEoL;
gotoXY(34,6); writeln('Urutan Awal Data');
for i := 0 to 3 do
begin
gotoXY(41,i+7); write(y[i]);
end;
gotoXY( 5,2); write('|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
|');
gotoXY( 5,3); write('| Menu : |');
gotoXY( 5,4); write('|_______________|');
gotoXY( 5,5); write('|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
|');
gotoXY( 5,6); write('| 1. Ascending |');
gotoXY( 5,7); write('| 2. Descending |');
gotoXY( 5,8); write('| 3. New|');
gotoXY( 5,9); write('| 0. Quit |');
gotoXY( 5,10); write('|_______________|');
gotoXY( 5,11);
write('|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ |');
gotoXY( 5,12); write('| Pilih : |');
gotoXY( 5,13); write('|_______________|');
gotoXY(17,12); pilih := readkey;
if pilih = '1' then
Ascending
else if pilih = '2' then
Descending
else if pilih = '3' then
begin
clrscr;
goto 1;
end
else
begin
clrscr;
gotoxy(15,15); write('Maaf anda
hanya dapat memilih dari no 0-3');
readkey; goto 2;
clrscr;
end;
until pilih = '0';
end.
Dosen
Pengampuh Matakuliah
Nama
: M.Ropianto, M.Kom
NIDN:
: 102867804
Status
: Dosen Tetap YAPISTA / STT Ibnu Sina
Pengampuh Matakuliah
: Algoritma
STT IBNU SINA BATAM
http://sttibnusinabatam.ac.id
Penerimaan
Mahasiswa Baru 2015 ,
https://docs.google.com/forms/d/11KKDWzGgo6SwHNNiQ_Hxvc3N5E2ZHv311OJa0WfVm0Q/viewform
