program penilaian ujian mahasiswa

program penilaian_MHS;{program ini untuk melihat hasil nilai mahasiswa selama 1 semester}
 
uses wincrt;
 
var nama : array[1..20] of string;
tugas, uts, uas, presensi : array[1..20] of integer;
rata : array[1..20] of real;
a,jd : byte;
begin
  clrscr;
  write('Masukkan Jumlah Data Nilai: '); readln(jd);
  for a := 1 to jd do;
  begin
    writeln('PENILAIAN UJIAN MAHASISWA');
    write('Masukkan Nama : '); readln(nama[a]);
    write('Masukkan Nilai Tugas : '); readln(tugas[a]);
    write('Masukkan Nilai UTS : '); readln(uts[a]);
    write('Masukkan Nilai UAS : '); readln(uas[a]);
    write('Masukkan Presensi : '); readln(presensi[a]);
    Rata[a]:=(0.1*tugas[a])+(0.2*uts[a])+(0.3*uas[a])+(0.4*presensi[a]);
  end;
  clrscr;
  for a := 1 to jd do;
  begin
    writeln('PENILAIAN UJIAN MAHASISWA');
    writeln('Nama : ',nama[a]);
    writeln('Nilai Tugas : ',tugas[a]);
    writeln('Nilai UTS : ',uts[a]);
    writeln('Nilai UAS : ',uas[a]);
    writeln('Presensi : ',presensi[a]);
    {untuk menampilkan semua data yang sudah dimasukkan di awal}
    writeln('Rata-rata : ',rata[a]:1:2);{untuk menampilkan rata-rata}
  end;
end.

Studi Kasus;
Indeks nilai mahasiswa ditentukan berdasarkan nilai ujian yang diraih oleh mahasiswa tersebut. Dengan aturan pemberian nilai indeks berdasarkan pada ketentuan seperti yang tertera di bawah ini:
Jika nilai ujian mahasiswa tersebut >=80, indeks nilai mahasiswa = A
Jika 70<= nilai ujian mahasiswa <80, indeks  nilai mahasiswa = B
Jika 55<= nilai ujian mahasiswa <70, indeks nilai  mahasiswa = C
Jika 40<= nilai ujian mahasiswa <55, indeks nilai mahasiswa = D
Jika nilai ujian mahasiswa <40, indeks nilai mahasiswa = E
Tantangan;
Buatlah algoritma yang membaca nilai ujian mahasiswa, kemudian menentukan indeks nilai mahasiswa, setelah itu mencetak nilai ujian mahasiswa beserta indeks nilai mahasiswa.

PROGRAM Indeks_Nilai_Ujian;

Uses wincrt ;

Var

x(nilai) : integer;

y(indeks) : char;

Begin

Writeln (‘Masukkan nilai ujian anda:’); readln(x);

If ( x >=80) then

Begin

Indeks : = ‘A’ ;

end

Else if (x >=70) and (x <80 :="‘B’" begin="" else="" end="" if="" indeks="" then="" x="">=55) and (x < 70) then

Begin

Indeks : = ‘C’ ;

end

Else if (x >=40) and (x <55 40="" :="‘E’" begin="" code="" else="" end.="" end="" if="" indeks="" nilai="’y);" then="" ujian="’,x" writeln="" x="">

Demikianlah listing program penilaian ujian mahasiswa, semoga bermanfaat. Baca juga program penjualan.