program latihan;
uses wincrt;
var
na,nt,nu,ns,npm :integer;
ket,nm:string;
gr:char;
nilai:real;
begin
writeln('===>NILAI SEMESTER GENAP<====');
writeln('=============================');
write (' Nama :');readln(nm);
write (' NPM :');readln(npm);
write (' nilai Absen :');readln(na);
write (' nilai Tugas :');readln (nt);
write (' nilai UTS :'); readln (nu);
write (' nilai UAS :'); readln (ns);
writeln('=============================');
nilai:=na*0.1+nt*0.15+nu*0.35+ns*0.40;
if (nilai>=80) and (nilai<=99.99) then
begin
gr:='A';
ket:='Sangat Baik';
end
else if (nilai>=70) and (nilai<=79.99) then
begin
gr:='B';
ket:='Baik';
end
else if (nilai>=60) and (nilai<=69.99) then
begin
gr:='C';
ket:='Cukup';
end
else if (nilai>=50) and (nilai<=59.99) then
begin
gr:='D';
ket:='Tidak Lulus';
end
else if (nilai>=40) and (nilai<=49.99) then
begin
gr:='E';
ket:='Tidak Lulus';
end
else if (nilai>=0) and (nilai<=39.99) then
begin
gr:='F';
ket:='Tidak Lulus';
end;
writeln('Nilai Semester :',nilai:0:2);
writeln('Gread :',gr);
writeln('Keterangan :',ket);
writeln('=============================');
end.
Tidak ada komentar:
Posting Komentar