Program If then else

Sekarang kita akan membuat program if then else yang menentukan nilai akhir dari mahasiswa menggunakan pascal. Dimana nilai akhir didapatkan dari 20% dari nilai tugas ditambah 30% dari nilai UTS dan ditambah 50% dari nilai UAS.Sehingga jika nilai akhir lebih dari 85, ket = A. Lebih dari 70, ket = B. Lebih dari 55, ket = C. Lebih dari 35, ket = D. Kurang dari 35, ket = E.

program Nilai_Akhir_Mahasiswa;
uses crt;
var Nama_Mahasiswa, NPM : string;
    Nilai_Tugas, Nilai_UTS, Nilai_UAS : integer;
    Nilai_Akhir : Real;
    Keterangan : String;

begin
  clrscr;
  write ('Masukkan Nama Mahasiswa : '); readln (Nama_Mahasiswa);
  write ('Masukkan NPM : '); readln (NPM);
  writeln ('---------------------------------------------------');
  write ('Masukkan Nilai Tugas : '); readln (Nilai_Tugas);
  write ('Masukkan Nilai UTS : '); readln (Nilai_UTS);
  write ('Masukkan Nilai UAS : '); readln (Nilai_UAS);
  writeln;writeln;
  Nilai_Akhir := (20/100*Nilai_Tugas)+(30/100*Nilai_UTS)+(50/100*Nilai_UAS);
  if Nilai_Akhir > 85 then
  keterangan := A
  else if Nilai_Akhir > 70 then
  keterangan := B
  else if Nilai_Akhir > 55 then
  keterangan := C
  else if Nilai_Akhir > 35 then
  keterangan := D
  else if Nilai_Akhir < 35 then
  keterangan := E;
  writeln ('---------------------------------------------------');
  writeln ('Mahasiswa yang bernama ',Nama_Mahasiswa,' dengan nomor NPM ',NPM);
  writeln ('Nilai Akhirnya adalah ',keterangan);
end.

Dengan output seperti dibawah ini :

Masukkan Nama Mahasiswa : Dwi Hendy Suhardika
Masukkan NPM : 200943500860
---------------------------------------------
Masukkan Nilai Tugas : 100
Masukkan Nilai UTS : 100
Masukkan Nilai UAS : 100


---------------------------------------------
Mahasiswa yang bernama Dwi Hendy Suhardika dengan nomor NPM 200943500860
Nilai akhirnya adalah A

Untuk pembahasan akan ditulis diblog selanjutnya