TUGAS PASCAL II

program fungsi;
uses crt;
var n_murni:real;
grade:char;
function NilaiAkhir(var n_absen,n_tugas,n_ujian:integer):integer;
begin
n_murni:=(n_absen*0.3)+(n_tugas*0.3)+(n_ujian*0.4);
end;

function NilaiGrade:integer;
begin
if n_murni>=80 then
grade:='A'
else
if n_murni>=70 then
grade:='B'
else
if n_murni<70 then
grade:='C';
end;

var nm:string;
na,nt,nu:integer;
begin
clrscr;
writeln('Input Nilai');
writeln('-----------');
write('Nama Siswa : ');readln(nm);
write('Nilai Absen : ');readln(na);
write('Nilai Tugas : ');readln(nt);
write('Nilai Ujian : ');readln(nu);
NilaiAkhir(na,nt,nu);
NilaiGrade;
clrscr;
writeln('Siswa Yang Bernama : ',nm);
writeln('Nilai Akhir = ',n_murni:2:2);
writeln('Grade = ',grade);
readln;
end.

Tampilan Hasil: