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.
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.
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
