Insertion Sort Pada Pascal

       Insertion Sort merupakan algoritma yang efisien untuk mengurutkan angka yang mempunyai jumlah elemen sedikit. Dimana Input adalah deretan angka sejumlah n buah,  Output adalah permutasi (pengurutan) sejumlah n angka dari input yang sudah terurut secara ascending maupun descending .

           Metode penyisipan (Insertion sort) bertujuan untuk menjadikan bagian sisi kiri array terurutkan sampai dengan seluruh array berhasil diurutkan. Metode ini mengurutkan bilangan-bilangan yang telah dibaca, kemudian berikutnya secara berulang akan menyisipkan bilangan-bilangan dalam array yang belum terbaca ke sisi kiri array yang telah terurut. 

          Insertion Sort bekerja seperti banyak orang yang sedang mengurutkan kartu di tangan. Dimulai dengan tangan kiri yang kosong dan kartunya tertumpuk di meja. Selanjutnya kita ambil satu persatu kartu di meja dan diletakkan di tangan kiri dengan posisi yang benar (terurut). Untuk menemukan posisi yang banar, maka kita harus membandingkan satu persatu kartu yang ada (di tangan kiri) secara berurutan.

Contoh Prosedur yang menggunakan insertion sort : 

 Procedure insertion(numbers : array of integer; n :integer);

 var i,j,index : integer;

 begin

    for i:= 2 to n-1 do

    begin

          index:= numbers[i];

          j:=i;

          while (j>1) and (numbers[j-1] > index) do

          begin

               numbers[j]:= numbers [j-1];

               j:= j-1;

          end;

     numbers[j]:=index;

     end;

end;

Contoh program yang menggunakan pengurutan insertion sort seperti gambar dibawah ini yang merupakan program perankingan :

Untuk program diatas bisa download di sini

Mau request program? silahkan berkomentar di bawah ^^

Share this

Unknown