Sabtu, 20 April 2013

maximum sort

Maximum Sort adalah contoh lain dari metode pengurutan yang sederhana. Proses Maximum sort lebih menitikberatkan pada pencarian nilai maksimum yang disimpan pada akhir array dan pengulangan terhadap pencarian nilai maksimum berikutnya dilakukan sampai ke akhir array minus 1. Secara algoritma pengurutan ini jauh lebih cepat karena hanya terjadi satu kali proses perpindahan data untuk setiap satu nilai maksimum.
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.

Tidak ada komentar:

Posting Komentar