fbpx

Algoritma dan Pemrograman : Pengurutan Data Metode Insertion Dalam Bahasa Pascal

Metode Pegurutan Data : Insertion Sort

Pada insertion sort, proses pengurutan dilakukan seperti mengurutkan kartu pada satu tangan. Untuk menemukan posisi yang banar, maka satu persatu kartu yang ada di tangan harus dibandingkan secara berurutan. Berikut adalah prosedur untuk melakukan selection sort:

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

Procedure InsertionSort(var data:larik; n:integer);
var
  i,j,key:integer;
begin
  for i:=2 to n do
    begin
      key:=data[i];
      j:=i-1;
      while (j>0)and(data[j]>key) do begin
        data[j+1]:=data[j];
        j:=j-1;
      end;
      data[j+1]:=key;
    end;
End;

Berikut ini adalah program lengkapnya

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

Procedure InsertionSort(var data:larik; n:integer);
var
i,j,key:integer;

begin
  for i:=2 to n do
    begin
      key:=data[i];
      j:=i-1;
      while (j>0)and(data[j]>key) do begin
        data[j+1]:=data[j];
        j:=j-1;
      end;
      data[j+1]:=key;
    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