Program Keterangan Nilai IPK dan Posisi Kuadran Nilai X dan Y

{Program Menampilkan Keterangan Nilai IPK}

uses wincrt;
       type nama_mhs=array [1..50] of string;
       nilai=array [1..50] of real;
var
       nm,ket:nama_mhs;
       ip:nilai;
       a,n,c:byte;

begin
writeln('Program Untuk Menampilkan Keterangan dari Nilai IPK:'); writeln;
       repeat
       begin
       inc(a);
      write('Input Nama Mahasiswa ' ,a, ' (jika selesai ketikan "finish")==>');
      readln(nm[a]);
      if (nm[a]<>'finish') then begin
      repeat
      c:=1;
      write('Masukan IPK==>'); readln(ip[a]);
      if (ip[a]>4) then begin writeln('Nilai IPK Tidak Ada Dalam Data!!! Masukan: >0
      dan <4.'); c:=2; end else if (ip[a]>3) then ket[a]:='Sempurna' else
      if (ip[a]>2) then ket[a]:='Nilai Baik' else
      ket[a]:='Nilai Kurang';
      until c=1;
      end
      else write('Tekan enter untuk melihat hasil');
      end;

    until (nm[a]='finish');readln;
dec(a);
clrscr;
writeln('Daftar Mahasiswa:');writeln;
writeln('No', 'Nama':10, 'IPK':12, 'Keterangan':14);
writeln('-----------------------------------------');
for n:=1 to a do begin
writeln(n,' |',nm[n]:13,' | ',ip[n]:3:2,' | ',ket[n]);
end;
writeln('-----------------------------------------');
    end.

Aplikasinya bisa download disini



Program Menampilkan posisi Kuadran Dari Nilai X dan Y

uses wincrt;
var
    y,x:integer;
     a:string;

begin
repeat
a:='y';
writeln('Mencari Posisi Kuadran dari input X dan Y:');writeln;
write(' Nilai X ==>');readln(x);
write(' Nilai Y ==>');readln(y);

       if (x>0) and (y>0) then writeln(' Ada pada kuadran: I')
else if (x>0) and (y<0) then writeln (' Ada pada posisi kuadran: IV')
else if (x<0) and (y>0) then writeln (' Ada pada posisi kuadran: II')
else if (x<0) and (y<0) then writeln (' Ada pada posisi kuadran: III'); writeln;
write('Anda ingin mencoba lagi? (y/n) ');readln(a);
clrscr;
until a ='n';
       end.

Aplikasinya bisa download disini