Program Pascal Menghitung Nilai Akhir Mahasiswa menggunakan If

Program Pascal Menghitung Nilai Akhir Mahasiswa menggunakan If

Berikut adalah contoh Program Pascal Menghitung Nilai Akhir Mahasiswa menggunakan If

1. Program
Program TotalNilai;
uses crt;
var
   NH,NT,NUTS,NUAS,NA : real;
begin
     clrscr;
     Writeln('Program Total Nilai Mahasiswa');
     Write('Input Nilai Hadir =');readln(NH);
     Write('Input Nilai Tugas =');readln(NT);
     Write('Input Nilai UTS   =');readln(NUTS);
     Write('Input Nilai UAS   =');readln(NUAS);

     NA :=0.1*NH+0.2*NT+0.3*NUTS+0.4*NUAS;

     Writeln('Total Nilai Akhir =',NA:2:0);
     readln;
end.

2. Program pada Pascal

3. Hasil Program