PENGURUTAN
PENGURUTAN
program pengurutan;
uses wincrt;
var
angka: array[1..1000] of integer;
k,l,m,n,o,i,a, temp: integer;
Lg : Char ;
begin
Repeat
Clrscr;
{Mengisi array}
write('masukkana angka 1:');readln(k);
write('masukkana angka 2:');readln(l);
write('masukkana angka 3:');readln(m);
write('masukkana angka 4:');readln(n);
write('masukkana angka 5:');readln(o);
angka[1] := k;
angka[2] := l;
angka[3] := m;
angka[4] := n;
angka[5] := o;
{Tampilkan data sebelum diurutkan}
writeln('Sebelum diurutkan : ');
for i:=1 to 5 do
begin
writeln('angka ke-', i, ' : ', angka[i]);
end;
{pengurutandengan buble}
for i:=1 to 4 do
begin
for a:=i+1 to 5 do
begin
if(angka[a] < angka[i]) then
begin
temp := angka[a];
angka[a] := angka[i];
angka[i] := temp;
end;
end;
end;
{Tampilkan data setelah diurutkan dengan seleksi}
writeln('Setelah diurutkan menggunakan seleksi : ');
for i:=1 to 5 do
begin
writeln('angka ke-', i, ' : ', angka[i]);
end;
{pengurutan dengan buble}
for i:= 1 to 4 do
for a:=1 to 5-i do
begin
if (angka[a]>angka[a+1]) then
begin
temp := angka[a];
angka[a] := angka[i];
angka[i] := temp;
end;
end;
{tampilkan data setelah di urutkan dengan buble}
writeln('setelah angka di urutkan menggunakan buble : ');
for i:=1 to 5 do
begin
writeln('angka ke-', i, ' : ', angka[i]);
end;
Writeln;
Write('Mau Coba Lagi? [Y/T]: ');Lg:=Upcase(Readkey);
Until Lg<>'Y';
end.
program pengurutan;
uses wincrt;
var
angka: array[1..1000] of integer;
k,l,m,n,o,i,a, temp: integer;
Lg : Char ;
begin
Repeat
Clrscr;
{Mengisi array}
write('masukkana angka 1:');readln(k);
write('masukkana angka 2:');readln(l);
write('masukkana angka 3:');readln(m);
write('masukkana angka 4:');readln(n);
write('masukkana angka 5:');readln(o);
angka[1] := k;
angka[2] := l;
angka[3] := m;
angka[4] := n;
angka[5] := o;
{Tampilkan data sebelum diurutkan}
writeln('Sebelum diurutkan : ');
for i:=1 to 5 do
begin
writeln('angka ke-', i, ' : ', angka[i]);
end;
{pengurutandengan buble}
for i:=1 to 4 do
begin
for a:=i+1 to 5 do
begin
if(angka[a] < angka[i]) then
begin
temp := angka[a];
angka[a] := angka[i];
angka[i] := temp;
end;
end;
end;
{Tampilkan data setelah diurutkan dengan seleksi}
writeln('Setelah diurutkan menggunakan seleksi : ');
for i:=1 to 5 do
begin
writeln('angka ke-', i, ' : ', angka[i]);
end;
{pengurutan dengan buble}
for i:= 1 to 4 do
for a:=1 to 5-i do
begin
if (angka[a]>angka[a+1]) then
begin
temp := angka[a];
angka[a] := angka[i];
angka[i] := temp;
end;
end;
{tampilkan data setelah di urutkan dengan buble}
writeln('setelah angka di urutkan menggunakan buble : ');
for i:=1 to 5 do
begin
writeln('angka ke-', i, ' : ', angka[i]);
end;
Writeln;
Write('Mau Coba Lagi? [Y/T]: ');Lg:=Upcase(Readkey);
Until Lg<>'Y';
end.
PENGURUTAN
https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh1f0SffBQoLSrMWiNT9hM4npfZKKMrt_8jzSY4nPRye96CvGn1eLFykyJJHucmxRZkopK5_UUG_4VnqplJXSjEOBRt43w0UEvax8sdFF7wC89KEZr0-0Q9mPTZGqImCpZDGr4_NBzirwdI/s72-c/fd.gif
