program bublesorting;
uses crt;
var
a,b,n,i,temp : integer;
bil : array [1..100] of integer;
p:char;
begin
repeat
clrscr;
gotoxy(26,1);
writeln(' ____________________________');
gotoxy(26,2);
writeln('| |');
gotoxy(26,3);
writeln('| Program Pengurutan Data |');
gotoxy(26,4);
writeln('| Metode Buble Sort |');
gotoxy(26,5);
writeln('|____________________________|');
writeln;
repeat
write('Masukkan banyak bilangan yang ingin diurutkan : ');
readln(n);
if n < 2 then
writeln('Input salah !! Input harus lebih dari satu !!');
until n > 1;
for i := 1 to n do
begin
write('Masukkan bilangan ke-',i,' : ');
readln(bil[i]);
end;
for i := 1 to n do
begin
for a:=1 to n-1 do
begin
b:=a+1;
if bil[a] > bil[b] then
begin
temp:=bil[a];
bil[a]:=bil[b];
bil[b]:=temp;
end;
end;
end;
writeln;;
writeln('Berikut ini adalah bilangan yang telah urut : ');
for i:=1 to n do
begin
writeln('Bilangan ke-',i,' : ',bil[i]);
end;
writeln;
write('ingin mengulang program ? (Y untuk ya , T untuk tidak) : ');
readln(p);
until p='T';
end.
uses crt;
var
a,b,n,i,temp : integer;
bil : array [1..100] of integer;
p:char;
begin
repeat
clrscr;
gotoxy(26,1);
writeln(' ____________________________');
gotoxy(26,2);
writeln('| |');
gotoxy(26,3);
writeln('| Program Pengurutan Data |');
gotoxy(26,4);
writeln('| Metode Buble Sort |');
gotoxy(26,5);
writeln('|____________________________|');
writeln;
repeat
write('Masukkan banyak bilangan yang ingin diurutkan : ');
readln(n);
if n < 2 then
writeln('Input salah !! Input harus lebih dari satu !!');
until n > 1;
for i := 1 to n do
begin
write('Masukkan bilangan ke-',i,' : ');
readln(bil[i]);
end;
for i := 1 to n do
begin
for a:=1 to n-1 do
begin
b:=a+1;
if bil[a] > bil[b] then
begin
temp:=bil[a];
bil[a]:=bil[b];
bil[b]:=temp;
end;
end;
end;
writeln;;
writeln('Berikut ini adalah bilangan yang telah urut : ');
for i:=1 to n do
begin
writeln('Bilangan ke-',i,' : ',bil[i]);
end;
writeln;
write('ingin mengulang program ? (Y untuk ya , T untuk tidak) : ');
readln(p);
until p='T';
end.
0 comments:
Posting Komentar