Rancang algoritma unruk menghitung Nilai Akhir dan Nilai Huruf dari beberapa mahasiswa pada matakuliah ini, dimana nilai akhir di peroleh dari :
Nilai Akhir = 10% Nilai Absen + 20% Nilai Tugas + 30% Nilai Mid + 40% Nilai Final
Nilai Absen = Total Kehadiran / 15 x 100
Total Kehadiran = Nilai Hadir1 + Nilai Hadir2 + ..... + Nilai Hadir15
Nilai Tugas = Total Nilai Tugas / 5
Total Nilai Tugas = Nilai Tugas1 + Nilai Tugas2 + ..... + Nilai Tugas5
Nilai Huruf diperoleh dari interval berikut :
A 75 <= Nilai Akhir <= 100
B 60 <= Nilai Akhir <= 75
C 40 <= NIlai Akhir <= 60
D 30 <= Nilali Akhir <= 40
E 0 <= Nilai Akhir <= 30
K Nilai Akhir = kosong
Data yang diinput : No.pokok, Nama Mahasiswa, 15 Nilai Kehadiran, 5 Nilai Tugas, Nilai Mid dan Nilai Final,
jawab :
Program Carilah_Nilai_Akhir_dan_Nilai_Huruf;
uses crt;
clrscr;
VAR Nopokok, Nama : string;
NilaiHadir, NilaiPertugas, NilaiMid, NilaiFinal : integer;
NilaiAkhir, NilaiAbsen, NilaiTugas : real;
A, TotalKehadiran, TotalNilaiTugas : integer;
NilaiHuruf : char;
Begin
write('input No Pokok :'); readln(Nopokok);
write('input Nama Mahasiswa :'); readln(Nama);
For A := 1 To 15 Do
Begin
write('input Nilai Kehadiran :'); readln(NilaiHadir);
TotalKehadiran := TotalKehadiran + NilaiHadir;
End;
For A := 1 To 5 Do
Begin
write('input Nilai Tugas :'); readln(NilaiPertugas);
TotalNilaiTugas := TotalNilaiTugas + NilaiTugas;
End;
NilaiTugas := TotalNilaiTugas / 5;
write('input Nialai Mid :'); readln(NilaiMid);
write('input Nilai Final :'); readln(NilaiFinal);
NilaiAkhir := (0.1 * NilaiAbsen) + (0.2 * NilaiTugas) + (0.3 * NilaiMid) + (0.4 * NilaiFinal);
write('Nilai Akhir = ',NilaiAkhir);
If (NilaiAkhir >= 75) and (NilaiAkhir <= 100) Then
NilaiHuruf := 'A';
else If (NilaiAkhir >= 60) and (NilaiAkhir <= 75) Then
NilaiHuruf := 'B';
else If (NilaiAkhir >= 40) and (NilaiAkhir <= 60) Then
NilaiHuruf := 'C';
else If (NilaiAkhir >= 30) and (NilaiAkhir <= 40) Then
NilaiHuruf := 'D';
else If (NilaiAkhir >= 0) and (NilaiAkhir <= 30) Then
NilaiHuruf := 'E';
else NilaiHuruf := 'K';
write('Nilai Huruf =',NilaiHuruf);
End.
Thankzzzz ^_^
Tidak ada komentar:
Posting Komentar