CONTOH PROGRAM SORTING

BUBLE SORT
program pengurutan data mahasiswa menggunakan buble sort :
JAWABAN
Uses wincrt;
type datamhs = record
NIM : integer;
Nama : string;
Nilai : integer;
end;
var siswa : array[1..100] of datamhs;
i,j,temp,jumlah:integer;
begin
write('Masukan jumlah siswa : ');
readln(jumlah);
for i:=1 to jumlah do
begin
clrscr;
writeln('Mahasiswa ke-',i);
write('Masukan NIM   : ');readln(siswa[i].NIM);
write('Masukan Nama  : ');readln (siswa[i].Nama);
write('Masukan Nilai : ');readln (siswa[i].Nilai);
writeln;
writeln;
end;
writeln(' Daftar Mahasisawa yang belum terurut ');
writeln(' | NO | NIM  |  NAMA  | NILAI |');
for i:=1 to jumlah do
begin
writeln(i: 5 ,' ',siswa[i].NIM:4,' ',siswa[i].NAMA:8,' ',siswa[i].NILAI:11);
end;
writeln;
writeln;
for i:=1 to jumlah do
begin
for j:=jumlah downto 2 do
if (siswa[j-1].Nilai>siswa[j].Nilai)then
temp:=siswa[j-1].Nilai;
siswa[j-1].Nilai:=siswa[j].Nilai;
siswa[j].Nilai:=temp;
end;
writeln;
writeln('Daftar Mahasiswa yang sudah terurut ');
writeln(' | NO |  NIM  |  NAMA  |  NILAI  |');
for i:=1 to jumlah do
begin
writeln(i: 5 ,' ',siswa[i].NIM:4,' ',siswa[i].NAMA:8,' ',siswa[i].NILAI:11);
end;
readln;
end.
INSERTION SORT

Program pengurutan data mahasiswa menggunakan insertion sort :
JAWABAN
uses wincrt;
type datamhs = record
NIM : integer;
Nama : string;
Nilai : integer;
end;
var i,j,temp,jumlah : integer;
mahasiswa : array [1..100] of datamhs;
begin
write('Masukan jumlah mahasiswa : ');
readln(jumlah);
for I:=1 to jumlah do
begin
writeln('Mahasiswa ke-',i);
write('Masukan NIM   : '); readln(mahasiswa[i].NIM);
write('Masukan Nama  : '); readln(mahasiswa[i].Nama);
write('Masukan Nilai : '); readln(mahasiswa[i].Nilai);
writeln;
writeln;
end;
writeln('Daftar Mahasiswa yang belum terurut ');
writeln('|  NO  | NIM  | NAMA  | NILAI |');
for I:=1 to jumlah do
begin
writeln( i : 4,' ',mahasiswa[i].NIM:8,' ',mahasiswa[i].NAMA:11,' ',mahasiswa[i].NILAI:11);
end;
writeln;
writeln;
for i :=1 to jumlah do
begin
temp:=mahasiswa[i].Nilai;
j:=i-1;
while(j>=0) and (temp<mahasiswa[j].Nilai)do
begin
mahasiswa[j+1].Nilai:=mahasiswa[j].Nilai;
j:=j-1;
end;
mahasiswa[j+1].Nilai:=temp;
end;
writeln;
writeln('Daftar Mahasiswa yang sudah terurut ');
writeln('|  NO  |  NIM  |  NAMA    |  NILAI  ');
for I:=1 to jumlah do
begin
writeln ( i : 4,' ',mahasiswa[i].NIM:8,' ',mahasiswa[i].NAMA:11,' ',mahasiswa[i].NILAI:11);
end;
end.
MAKSIMUM SORT
program pengurutan data mahasiswa menggunakan maksimum sort :
JAWABAN

uses wincrt;
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.

KETERANGAN PROGAM MAXIMUM SORT :
Program di atas mngerjakan tentang program maximum sort,dengan menampilkan 4 data array dengan nilai acak menggunakan turbo pascal.dengan nilai pertama misalkan ,45,20,25,10 sebelum di urutkan,sehingga sesudah di urutkan menggunakan maximum sort menjadi  45,25,20,10 sehingga dapat menampilkan data terbesar

SELECTION SORT
Selection sort mempunyai nilai untuk mencari nilai terkecil ke yang terbesar,dikatakan selection sort di karnakan data tersebut dapat memilh nilai yang terbesar menjadi nilai terkecil dengan melakukan pertukaran dari nilai terbesar hingga terkecil secara acak dan berakhir di  nilai yang benar.

EXCENGE SORT:
Teknik sorting ini dibuat dengan cara pola membawa nilai terbesar menjadi nilai index terakhir array.dengan melakukan nilai pertukaran di dalam data tersebut.bila nilai yang awal di butuhkan terkecil maka akan ada pertukaran nilai.

MARGE SORT
Data marge sort mempunyai data yang harus di tampung banyak di karnakan daya tampung nya besar.data marge sort melakukan penukaran nilai dengan memecah data menjadi dua bagian nanti bisa di urutkan yang di perlukan dengan nilai terbesar atau terkecil.