Senin, 15 April 2013

program pascal if than

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