Program Pascal Input nilai mahasiswa

 ini kodenya: 

type

siswa =

record

nim,nama: string;

tugas,uts,uas: double;

end;

var

dataSiswa : array[1..50] of siswa;

n, i : integer;

nilaiAkhir: double;

grade: string;

begin

write('Banyak data yang dimasukan: ');

readln(n);

{init}

for i := 1 to n do

begin

writeln('Data ke : ', i);

write('NIM : ');

readln(dataSiswa[i].nim);

write('NAMA : ');

readln(dataSiswa[i].nama);

write('TUGAS : ');

readln(dataSiswa[i].tugas);

write('UTS : ');

readln(dataSiswa[i].uts);

write('UAS : ');

readln(dataSiswa[i].uas);

end;

{display}

writeln('-----------------------------------------');

writeln('NO NIM NAMA TUGAS UTS UAS NA GRADE');

writeln('-----------------------------------------');

for i := 1 to n do

begin

nilaiAkhir := (dataSiswa[i].tugas + dataSiswa[i].uts + dataSiswa[i].uas)/3;

if nilaiAkhir <= 70 then

grade := 'C'

else if nilaiAkhir > 70 then

grade := 'B'

else

grade := 'A';

writeln(i, ' ', dataSiswa[i].nim, ' ',dataSiswa[i].nama , ' ',dataSiswa[i].tugas:0:2 , ' ', dataSiswa[i].uts:0:2, ' ', dataSiswa[i].uas:0:2, ' ', nilaiAkhir:0:2, ' ', grade);

end;

end.

ini outputnya: