Tugas Praktikum Ke-4 Algoritma Pemrograman II

1. Source 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(14,6+i); writeln('|');
  gotoxy(43,6+i); writeln('|');
  gotoxy(49,6+i); writeln('|');
  gotoxy(3,6+i); writeln(mhs[i].nim);
  gotoxy(16,6+i); writeln(mhs[i].nama);
  gotoxy(44,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.

2. Output Program
    2.1. Input Program

 Gambar 2.1

    2.2. Output Program

Gambar 2.2