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.
Tidak ada komentar:
Posting Komentar