Algoritma dan Pemrograman : Pengurutan Data Metode Selection Dalam Bahasa Pascal

📋 Daftar Isi

Metode Pegurutan Data : Selection Sort

Pada selection sort, proses pengurutan dilakukan dengan cara mencari nilai data terkecil atau terbesar pada setiap perulangan dan menempatkannya pada posisi yang sesuai. Selection sort merupakan kombinasi dari searching dan sorting. Berikut adalah prosedur untuk melakukan selection sort:

Type Larik = array [1..100] of integer;
Procedure SelectionSort(var Data:Larik; n:integer);
var 
  i, j, min, temp:integer;
Begin
  For i:=1 to n-1 do
    begin
      Min:=i;
      For j:= i+1 to n do
        If Data[j] < Data[min] then Min:=j;
      Temp:=Data[i];
      Data[i]:=Data[min];
      Data[min]:=temp;
    End;
end.

Berikut ini adalah program lengkapnya

program Urutin;
Type Larik = array [1..100] of integer;

Procedure SelectionSort(var Data:Larik; n:integer);
var 
i, j, min, temp:integer;
begin
  For i:=1 to n-1 do
    begin
      Min:=i;
      For j:= i+1 to n do
        begin
          If Data[j] < Data[min] then
          Min:=j;
        End;
      Temp:=Data[i];
      Data[i]:=Data[min];
      Data[min]:=temp;
    End;
End;

var
  data:larik;
  i,n:integer;
begin
  n:=5;
  data[1]:=5;
  data[2]:=8;
  data[3]:=6;
  data[4]:=9;
  data[5]:=1;

  Selectionsort(data,n);
  for i:=1 to n do writeln(data[i]);
end.