PROGRAM MENGHITUNG NILAI AKHIR MAHASISWA

    Program ini adalah progam untuk menghitung nilai akhir beberapa mahasiswa, nilai akhir dihitung dari hasil akumulasi nilai tugas, nilai MID dan Nilai final kemudian dibagi 3.
di akhir juga akan dicari mahasiswa dengan perolehan nilai tertinggi dan terendah.
rata -rata nilai tugas, MID , dan Final...
nah..
beritkut adalah source code programnya....

program hitung_nilai;
uses crt;
var nt, nm, nf, jnt, jnm, jnf, jdata : integer;
    na, jna, rnt, rnm, rnf, tinggi, rendah : real;
    nama, stb, ulang, namat, stbt, namar, stbr : string;
begin
clrscr;
jdata := 0;
rendah:=100;
repeat
write('masukkan nama : ');
readln(nama);
write('masukkan Stambuk : ');
readln(stb);
write('Masukkan nilai tugas : ');
readln(nt);
write('Masukkan Nilai MID : ');
readln(nm);
write('Masukkan Nilai Final : ');
readln(nf);
na := (0.25*nt) + (0.35*nm) + (0.4*nf);
writeln('nilai akhir = ',na:2:2);
jnt := jnt + nt;
jnm := jnm + nm;
jnf := jnf + nf;
inc(jdata);
if tinggi < na then
begin
tinggi := na;
namat := nama;
stbt := stb;
end;
if rendah > na then
begin
rendah := na;
namar := nama;
stbr := stb;
end;

write('Masih ada data ? [Y/T] : ');
readln(ulang);
until ulang = 'T';

rnt := jnt / jdata;
rnm := jnm / jdata;
rnf := jnf / jdata;
writeln('Mahasiswa yang mendapat nilai tertinggi');
writeln('nama    : ',namat);
writeln('Stambuk : ',stbt);
writeln('Nilai Akhir : ',tinggi:2:2);
writeln('Mahasiswa yang mendapat nilai terendah');
writeln('nama    : ',namar);
writeln('Stambuk : ',stbr);
writeln('Nilai Akhir : ',rendah:2:2);
writeln('Rata-rata nilai tugas ',rnt:2:2);
writeln('Rata-rata nilai MID ',rnm:2:2);
writeln('Rata-rata nilai final ',rnf:2:2);

readln;
end.