mencari nilai rata2 mahasiswa menggunakan program pascal

uses wincrt;
var
nama,nim:string;
nt,nmt,na:integer;
nr :real;

begin
writeln ('        DAFTAR NILAI MAHASISWA');
write ('Nama  : ');
readln (nama);
write ('NIM   : ');
readln (nim);
write ('Nilai Tugas      : ');
readln (nt);
write ('Nilai Mid Test   : ');
readln (nmt);
write ('Nilai Akhir      : ');
readln (na);

nr:=(0.5*nt)+(0.25*nmt)+(0.25*na);

writeln ('Rata-rata      : ',nr:0:2);
end.

You May Like :

Share on Facebook

Share on Twitter

Share on Google+

Share on LinkedIn