Menghitung Nilai Semester Menggunakan Pascal

Menghitung Nilai Semester Menggunakan Pascal

 

 

Program berikut merupakan program untuk menghitung nilai semester menggunakan Pascal.

Berikut program pada bahasa Pascal :

uses crt ;
var
        nmid, nuas      : integer ;
        nsem            : real ;

begin
     clrscr ;
     writeln('Menghitung Nilai Semester') ;
     writeln('--------------------------') ;
     write ('Input Nilai Mid  : ') ; readln (nmid) ;
     write ('Input Nilai Uas  : ') ; readln (nuas) ;
     nsem := 0.4 * nmid + 0.6 * nuas ;
     writeln('Output Nilai Semester : ', nsem:4:1) ;
     readln ;
end.