Page 161 - BAHAN_BACAAN_ALGORITMA_DAN_PEMOGRAMAN

Begin {Program Utama}

Clrscr;
{Program input data}

Write (masukkan Nama mahasiswa= ?’); Readln (Nama_Mhs);
Write (masukkan Nama Matakuliah= ?’); Readln (Nama_MataKuliah[I]);

Write (masukkan Nilai Tugas= ?’); Readln (Nilai_Tugas[I]);
Write (masukkan Nilai UTS= ?’); Readln (UTS[I]);

Write (masukkan Nilai UAS= ?’); Readln (UAS[I]);

{Proses Perhitungan}
NU :=( nilai tugas [I]*0.15) + (nilai uts [I]* 0.35) + (nilai uas[I] *0.5);

{Proses Penyeleksian}

If (NU[I] ≥ 80) Then Bobot:= ‘A’
Else

If (NU[I] ≥70) and (NU[I]≤80) Then Bobot:= ‘B’
Else
If (NU[I]≥55) and(NU[I]≤70) Then Bobot := ‘C’
Else
If (NU[I]≥50) and(NU[I]≤55) Then Bobot:= ‘D’
Else
Bobot := ‘E’
End;
End;
End;
End;
{Proses output}
Writeln (‘Nama Mahasiswa =’ , Nama_Mhs[I] : 10);

Writeln (‘Nama Mata kuliah = ‘ , Mata_kuliah[I]);
Writeln (‘Nama ujian akhir = ‘ , NU[I] );

Writeln (‘Bobot nilai = ‘ , Bobot);

End.