METODE SELEKSI (SELECTION SORT)

Pengurutan atau shorting merupakan proses untuk menyusun kembali kumpulan entri-entri
yang telah dimasukkan dengan suatu aturan tertentu. Secara umum ada 2 macam
pengurutan yaitu pengurutan secara menaik (ascenden) dan pengurutan secara menurun
(descenden).

METODE SELEKSI (SELECTION SORT)

Masukkan dinyatakan sebagai vector misal vector A (belum terurut), dan N (missal
banyak elemen yang akan diurutkan). Keluaran adalah vector A yang telah terurut.

Algoritma metode seleksi :
• langkah 0 : Baca vector yang akan diurutkan (dalam program utama)
• langkah 1 : Kerjakan langkah 2 sampai 4 untuk i = 1 sampai N -1
• langkah 2 : Tentukan awal = i , kerjakan langkah 3 untuk j = i +1 sampai N
• langkah 3 : (Mencari data terkecil)
Tes : apakah A[awal] > A[j], jika ya maka ubah awal = j
• langkah 4 : Tukarkan nilai A[awal] dengan A[i]
• langkah 5 : selesai


implementasinya sebagai berikut :

program contoh_sorting;
uses crt;
type dataItem = integer;
arrInt = array [1..100] of dataItem;




procedure Tukar(var a,b : dataItem);
var temp : dataItem;
begin
temp := a;
a := b;
b := temp;
end;


procedure SelectionSort(var X : ArrInt; n : integer ; awal : integer);
var i,j : integer;
begin


for i:=1 to N-1 do
begin
awal :=i
for j := i+1 to N do
begin
if (x[i] > x[j]) then awal :=j;


end;
Tukar(x[awal],x[i]);
end;




end;



var data:arrInt;
i, n:integer;




begin
clrscr;
write('masukan jumlah data : '); readln(n);
for i:=1 to N do
begin
write('data ke ',i, ': '); readln (data[i]);
end;


begin


SelectionSort(data, n);
for i:=1 to n do
write(data[i],' ');
readln;
end;


end.

 run programnya adalah sebagai berikut :

next saya mau posting tentang Bubble Sort  ,, tunggu yaaaa!

Posted in: kuliah,pascal