SORTING

ontoh Program MAHSISWASource Code:

uses crt;

type data= record

nama, nim: string;

ipk : real;

end;

var

mhs : array [1..100] of data;

i, j, n, temp : integer;

pilih : char;

procedure input;

begin

clrscr;

write('Masukkan jumlah mahasiswa : ');

readln(n);

for i := 1 to n do

begin

clrscr;

writeln('Masukkan Data ke- ', i);

writeln('______________________');

write ('Nama   : '); readln(mhs[i].nama);

write ('NIM   : '); readln(mhs[i].nim);

write ('IPK   : '); readln(mhs[i].ipk);

end;

end;

procedure tampil;

begin

clrscr;

writeln('                         ** Tampilkan Data Mahasiswa **');

writeln;

writeln;

writeln('|---------------------------------------------|');

writeln('|   NIM     |           Nama           | IPK  |');

writeln('|---------------------------------------------|');

for i:=1 to n do

begin

gotoxy(1,6+i); writeln('|');

gotoxy(10,6+i); writeln('|');

gotoxy(40,6+i); writeln('|');

gotoxy(47,6+i); writeln('|');

gotoxy(3,6+i); writeln(mhs[i].nim);

gotoxy(14,6+i); writeln(mhs[i].nama);

gotoxy(42,6+i); writeln(mhs[i].ipk:2:2);

end;

writeln('|---------------------------------------------|');

readkey;

end;

procedure selection;

var max: integer;

temp: data;

begin

for i:=1 to n-1 do

begin

max:=i;

for j:= i+1 to n do

if mhs[j].ipk> mhs[max].ipk then

max:=j;

temp:= mhs[max];

mhs[max]:= mhs[i];

mhs[i]:= temp;

end;

tampil;

end;

begin

input;

selection;

end.

Output: