Menghitung Nilai Akhir Mahasiswa

Algoritma

uses crt;
var
nt,uts,uas,rt:real;
nim,nama,grade:string[25];
tr:longint;
begin
clrscr;
writeln(’program input’);
writeln(’===============’);
write(’masukan nim :’);readln(nim);
write(’masukan nama:’);readln(nama);
write(’masukan tugas :’);readln(nt);
write(’masukan UTS :’);readln(uts);
write(’masukan UAS :’);readln(uas);
rt:=0.25*nt+0.25*uts+0.5*uas;
tr:=round(rt);
case tr of
0..44:
begin
grade:=’E';
end;
45..55:
begin
grade:=’D';
end;
56..65:
begin
grade:=’C';
end;
66..79:
begin
grade:=’B';
end;
80..100:
begin
grade:=’A';
end;
end;

clrscr;
writeln(‘program nilai mahasiswa’);
writeln(’=======================’);
writeln;
writeln(’mahasiswa yang bernama ‘,nama);
write(’dengan nim ‘,nim);
write(’ mendapatkan nilai ‘,rt:4:0);
write(’ dan gradenya adalah ‘,grade);
readln;
end.