fbpx

Algoritma dan Pemrograman : Pengurutan Data Metode Selection Dalam Bahasa Pascal

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.


Materi Lengkap

Silakan baca juga beberapa artikel menarik kami tentang Pengurutan, daftar lengkapnya adalah sebagai berikut.


Tonton juga video pilihan dari kami berikut ini

Bagikan ke teman-teman Anda

Contact Us

How to whitelist website on AdBlocker?

How to whitelist website on AdBlocker?

  1. 1 Click on the AdBlock Plus icon on the top right corner of your browser
  2. 2 Click on "Enabled on this site" from the AdBlock Plus option
  3. 3 Refresh the page and start browsing the site
error: Content is protected !!
Up