SORTING PART I (Bubble Short dari Kecil ke Besar)

-Hasil Keluaran-

masukan jumlah index array yang akan digunakan : 5

masukan elemen array : 1

masukan elemen array : 5

masukan elemen array : 2

masukan elemen array : 7

masukan elemen array : 9

sebelum diurutkan

----------------------------------

elemen array index ke-1 : 1

elemen array index ke-2 : 5

elemen array index ke-3 : 2

elemen array index ke-4 : 7

elemen array index ke-5 : 9

----------------------------------

iterasi i-1

iterasi i-2

iterasi i-3

iterasi i-4

iterasi i-5

iterasi k-1

iterasi k-3

iterasi k-2

iterasi k-4

iterasi k-5

index array ke-1 jadi 1

index array ke-2 jadi 3

index array ke-3 jadi 2

index array ke-4 jadi 4

index array ke-5 jadi 5

setelah diurutkan 

----------------------------------

elemen array index ke-1 : 1

elemen array index ke-2 : 2

elemen array index ke-3 : 5

elemen array index ke-4 : 7

elemen array index ke-5 : 9

-Sintax Pascal- 

program SelectionSortMaxNaik;
uses wincart;
  const nMaks = 100;

var
l : array [1..nMaks] of integer;
i, k, n, temp : integer;

begin
   write ('masukan jumlah index array yang akan digunakan : '); readln (n);
   for k := 1 to n do
   begin
      write ('masukan elemen array :'); readln (l[k]);
   end;

   writeln;
   writeln ('sebelum diurutkan');
   writeln ('-----------------------------');
   for k := 1 to n do
        begin
             writeln (elemen array index ke-',k,':', l[k] );
    end;
    for i := 1 to n-1 do
        begin
             writeln ('-----------------------------');
             writeln ('iterasi i-',i);

             for k := n downto i+1 do
             begin
               writeln ('iterasi k-', k);
                      if (l[k]) < (l[k-1]) then
                      begin
                          temp := l[k];
                          l[k] := l[k-1];
                          l[k-1] := temp;
                          writeln('index array ke-',k,' jadi :',l[k]);
                          writeln('index array ke-',k-1,' jadi :',l[k-1]);
                      end;
                end;
             end;
    writeln;
    writeln ('setelah diurutkan');
    writeln ('----------------------------------');
    for k:= 1 to n do
        begin
             writeln ('elemen array index ke-',k,':', l[k] );
    end;
end.