Program mencari nilai mahasiswa

Berikut ini adalah petikan program pencarian nilai mahasiswa dengan program pascal, semoga bermanfaat.

program Nilai_Mahasiswa;

uses crt;

label indexprestasi,inputlg,selesai;

const
garis : string ='--------------------------------------------------------------------';

type
 a = array [1..10] of string;
 b = array [1..10] of integer;
 c = array [1..10] of integer;
 d = array [1..10] of integer;
 e = real;

var
 nama            : a;
 tugas           : b;
 uts             : c;
 uas             : d;
 rata            : e;
 x, jd, bar      : integer;
 nhuruf,ul       : string;

begin
  indexprestasi:
  clrscr;
  gotoxy (17,2); writeln('**************** SELAMAT DATANG ***************');
  gotoxy (17,3); writeln('DIPROGRAM INPUT NILAI MAHASISWA STIKI INDONESIA');
  writeln('');
  write('Masukkan Jumlah Data :'); readln(jd);
  writeln('');

  for x := 1 to jd do
  begin
    write('Input nama        :'); readln(nama[x]);
    write('Input nilai tugas :'); readln(tugas[x]);
    write('Input nilai uts   :'); readln(uts[x]);
    write('Input nilai uas   :'); readln(uas[x]);
    writeln('');
  end;

  begin
  writeln('================================================');
  end;

  for x := 1 to jd do
  begin
    rata := tugas[x]*0.2 + uts[x]*0.3 + uas[x]*0.5;
    writeln('nama            :',nama[x]);
    writeln('nilai tugas     :',tugas[x]);
    writeln('nilai uts       :',uts[x]);
    writeln('nilai uas       :',uas[x]);
    writeln('nilai rata-rata :',rata:3:2);
    readln;
  end;

  clrscr;
  gotoxy(5,4); write(garis);
  gotoxy(5,5); write('No');
  gotoxy(9,5); write('Nama');
  gotoxy(38,5); write('TUGAS');
  gotoxy(45,5); write('UTS');
  gotoxy(52,5); write('UAS');
  gotoxy(59,5); write('Nilai');
  gotoxy(66,5); write('Grade');
  gotoxy(5,6); write(garis);

  bar :=7;

  for x := 1 to jd do
  begin
  rata := tugas[x]*0.2 + uts[x]*0.3 + uas[x]*0.5;
    if rata >= 80 then nhuruf:='A'
    else if rata > 70  then nhuruf:='B'
    else if rata > 60  then nhuruf:='C'
    else if rata > 50  then nhuruf:='D'
    else nhuruf:='E';

    gotoxy (25,3); writeln('DAFTAR NILAI MAHASISWA STIKI');
    gotoxy (5,bar); writeln(x);
    gotoxy (9,bar); writeln(nama[x]);
    gotoxy (38,bar); writeln(tugas[x]);
    gotoxy (45,bar); writeln(uts[x]);
    gotoxy (52,bar); writeln(uas[x]);
    gotoxy (59,bar); writeln(rata:3:2);
    gotoxy (66,bar); writeln(nhuruf);
    bar:=bar+1

  end;

  gotoxy (5,bar+1); writeln(garis);
  readln;

  inputlg :
  gotoxy (5,bar+2);
  Write('APAKAH ANDA INGIN MENGINPUT LAGI..?(Y/T)'); readln(ul);
  if ul='y' then goto indexprestasi;
  if ul='t' then goto selesai;

  selesai:
  textcolor(yellow);
  gotoxy (5,bar+3);
  write('TERIMA KASIH');readln;

end.