Data Asli
|
Langkah 1
|
Langkah 2
|
Langkah 3
|
Data Urut
|
D↓
|
B↓
|
C↓
|
A
|
A
|
C
|
C
|
B
|
B
|
B
|
A
|
A
|
A
|
C
|
C
|
B
|
D
|
D
|
D
|
D
|
Contoh 6.1
{ pengurutan maximum sort }
Program P010;
uses crt;
var data: array [1..100] of
integer;
i,j,temp,jumlah: integer;
imax,tempjum,max: integer;
begin
clrscr;
write('Masukan jumlah data : ');
readln(jumlah);
for i:=1 to jumlah do
begin
write('Masukan data ke- ',i,' : ');
readln(data[i]);
end;
clrscr;
writeln('Data yang belum terurut');
for i:=1 to jumlah do
begin
write(data[i]);
end;
tempjum:=jumlah;
for i:=1 to jumlah do
begin
imax:=1;
max:=data[1];
for j:=1 to tempjum do
begin
if (data[j]>max) then
begin
max:=data[j];
imax:=j;
end;
end;
temp:=data[tempjum];
data[tempjum]:=data[imax];
data[imax]:=temp;
tempjum:=tempjum-1;
end;
writeln;
writeln('Data yang sudah terurut');
for i:=1 to jumlah do
begin
write(data[i]);
end;
readln;
end.