๐ Daftar Isi
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.