Program Pengurutan Berdasarkan IPK dengan Selection Sort

• Nama : Program Pengurutan Berdasarkan IPK dengan Selection Sort
• Bahasa : Pascal
• Software : Free Pascal IDE
• Deskripsi : Program ini menggunakan selection sort untuk mengurutkan data berdasarkan IPK. Pertama-tama user akan menginputkan data berupa nama dan IPK sebanyak yang diinginkan user. Kemudian program akan men-sorting IPK dari yang terkecil sampai terbesar dan kemudian meng-output-kannya.
• Screenshot :
  
  Gambar 1. Penginputan jumlah data
  
  
  Gambar 2. Penginputan isi data (Nama dan IPK)
   
  
  Gambar 3. Setelah penginputan data selesai
  
  
  Gambar 4. Output hasil sorting

• Tabel Proses Sorting :

Data awal	3.8	2.9	3.5	3.1	3.4
Swap ke-1	3.8	3.5	2.9	3.1	3.4
Swap ke-2	3.8	3.5	3.4	3.1	2.9
Data akhir	3.8	3.5	3.4	3.1	2.9

• Source Code :

uses crt; type   mhs    =record     nama :string;     nim  :string;     ipk  :real;   end;   amhs   =array[1..10] of mhs; var   dtmhs  :amhs;   jlh_mhs,a:byte; procedure swap(var i,j:real);   var temp  :real;   begin     temp:=j;     j   :=i;     i   :=temp;   end; procedure swap2(var i,j:string);   var temp  :string;   begin     temp:=j;     j   :=i;     i   :=temp;   end; procedure sorting(n:byte;var a:amhs);   var i,j,k :byte;   begin     for i:=1 to n do       begin         k:=i;         for j:=i+1 to n do           if a[j].ipk>a[k].ipk then             k:=j;         swap2(a[i].nama,a[k].nama);         swap2(a[i].nim, a[k].nim);         swap (a[i].ipk, a[k].ipk);       end;   end; begin   clrscr;   gotoxy(8,1);writeln('>> Program Sorting IPK <<');   writeln;   write  ('Jumlah data : ');readln(jlh_mhs);   for a:=1 to jlh_mhs do     begin       writeln('Data ke-',a);       write  ('  Nama  : ');readln(dtmhs[a].nama);       write  ('  NIM   : ');readln(dtmhs[a].nim);       write  ('  IPK   : ');readln(dtmhs[a].ipk);     end;   sorting(jlh_mhs,dtmhs);   clrscr;   gotoxy(16,1);writeln('>> Hasil Sorting <<');   writeln;   writeln('====================================================');   writeln('| No |          Nama           |  NIM      |  IPK  |');   writeln('|----|-------------------------|-----------|-------|');   for a:=1 to jlh_mhs do     begin       write('|    |                         |           |       |');       gotoxy(3,wherey); write  (a:2);       gotoxy(8,wherey); write  (dtmhs[a].nama);       gotoxy(34,wherey);write  (dtmhs[a].nim);       gotoxy(46,wherey);writeln(dtmhs[a].ipk:5:2);     end;   writeln('====================================================');   readkey; end.