PROGRAM PASCAL TEKNIK INSERTION

Berikut ini adalah program implementasi teknik Insertion Sorting menggunakan program Turbo Pascal :

program Insertion;
uses crt;
var input : array [1..10] of integer;
banding,tukar,jumlah,i,j,k,l,m,temp:integer;
begin
clrscr;
writeln('PROGRAM TEKNIK INSERTION');
write('Masukkan jumlah data , maksimal 10 : ');readln(jumlah);
for i := 1 to jumlah do
    begin
        write('Masukkan data ke -',i,' : ');readln(input[i]);
    end;
for j:= 2 to jumlah do
    begin
    l := j;
    m := j-1;
    for k:= j-1 downto 1 do
        begin
        if input[l] < input[m] then
            begin
            temp := input[l];
            input[l] := input[m];
            input[m] := temp;
            tukar := tukar+1;
            end;
        if m > 1 then
            begin
            l := l-1;
            m := m-1;
            banding := banding+1;
            end;
        end;
    end;
for i:= 1 to jumlah do
begin
write('Data ke -',i,' yang sudah di sortir : ');writeln(input[i]);
end;
write('Jumlah perbandingan : ');writeln(banding);
write('Jumlah pertukaran : ');writeln(tukar);
readln;
end.