Pascal UTS 1

Buatlah sebuah program menggunakan bahasa Pascal dari kasus berikut :

Soal

Dalam menentukkan nilai akhir mahasiswa ditentukan oleh beberapa komponen nilai yaitu nilai presensi, nilai tugas, nilai UTS dan nilai ujian akhir (UAS). Nilai presensi dihasilkan dari kehadiran mahasiswa dibagi kehadiran dosen (14) dikalikan 100%.
Komponen nilai mempunyai prosentase yang berbeda. Untuk presensi menyumbangkan 10% , tugas sebesar 25%, UTS sebesar 25% dan ujian akhir sebesar 40%. Dari nilai akhir akan dikonversi menjadi Grade dengan ketentuan, jika nilai akhir lebih dari 85 maka akan diberi Grade “A”, nilai akhir antara 75 – 84 maka diberi Grade “B”, nilai akhir antara 60 – 74 maka diberi Grade “C”, nilai akhir antara 45 – 59 diberi Grade “D” selain itu Grade “E”.
Dari Grade akan diperoleh keterangan jika Grade A, B dan C maka diberikan keterangan “LULUS”, jika Grade “D” maka keterangannya “REMEDIAL” dan Grade “E” keterangannya “GAGAL”.
Untuk melengkapi data harus ada NIM, Nama mahasiswa (nama), Jenjang, Program Studi (prodi) dan pada keluaran harus menampilkan nilai presensi, nilai tugas, nilai UTS, nilai UAS, nilai akhir, Grade dan Keterangan.

Jawab

Program Mahasiswa;
uses crt;
var
 lulus,Nama, Nim,jenjang,prog : string;
 NPresensi, NTugas, NUTS, NUAS: integer;
 NAkhir:real;
 grade,keterangan: char;

Begin
 clrscr;
 write('Nama Mahasiswa : ');readln(nama);
 write('Nim Mahasiswa  : ');readln(nim);
 write('Jenjang Anda   : ');readln(jenjang);
 write('Program Study  : ');readln(prog);
 write('Nilai Presensi : ');readln(Npresensi);
 write('Nilai Tugas    : ');readln(NTugas);
 write('Nilai UTS      : ');readln(NUTS);
 write('Nilai UAS      : ');readln(NUAS);

 NAkhir:= 10/100 * NPresensi + 25/100 * NTugas + 25/100 * NUTS + 40/100 * NUAS;

 if NAkhir >=85 then
 begin
  Grade:='A';
  Lulus:='LULUS';
 end

 else
 if NAkhir >=75 then
 begin
  Grade:='B';
  Lulus:='LULUS';
 end

 else
 if NAkhir >=60 then
 begin
  Grade:='C';
  Lulus:='LULUS';
 end

 else
 if NAkhir >=45 then
  begin
  Grade:='D';
  Lulus:='REMEDIAL';
 end

 else
 begin
  Grade:='E';
  Lulus:='GAGAL';
 end;

 writeln;writeln;
 writeln('Nama Mahasiswa : ',nama);
 writeln('NIM Mahasiswa  : ',nim);
 writeln('Jenjang        : ',jenjang);
 writeln('Program Study  : ',Prog);
 writeln('Nilai Presensi : ',NPresensi);
 writeln('Nilai Tugas    : ',NTugas);
 writeln('Nilai UTS      : ',NUTS);
 writeln('Nilai UAS      : ',NUAS);
 writeln('Nilai Akhir    : ',NAkhir:1:0);
 writeln('Nilai Grade    : ',Grade);
 writeln('Keterangan     : ',lulus);
 readln;
 end.

 Gambar Program ketika di eksekusi

*Bila ada kesulitan, silahkan tinggalkan komentar Anda.