program Bublesort

Algoritma dan Pemrograman

program Bublesort;

uses wincrt;

VAR

   Data         : array[1..10] of integer;

   i,j,n,bantu  : integer;

BEGIN

 clrscr;

 writeln('^_^ Program Buble_Sort ^_^');writeln;

 writeln('------------------------');writeln;

 writeln('Nama : Candra Kristanto');writeln;

 writeln('Nim  : C1155201114');writeln;

 writeln('------------------------');writeln;

 writeln('Masukkan data Anda !');writeln;

 write('Jumlah data Anda = ');readln(n);

 writeln('Mulai memasukkan data');

 for i:=1 to n do

 begin

      write('Data ke-',i,'=');

      readln(data[i]);

 end;

 for i:=1 to n do

 for j:=1 to N-i do

 begin

      if data[j] > data [j+1] then

      begin

           Bantu := data[j];

           data[j] := data[j+1];

           data[j+1]:= Bantu;

         end;

       end;

       for i:=1 to n do

           write('(',data[i],'),');readln;

end.