program tabel;
uses crt;
const n=100;
type mhs = record
npm : string[15];
nama : string[20];
kod : string[10];
sem : byte;
nlai : char;
end;
var
tbl : array[1..n,1..5] of mhs;
pil : char;
i,j,a : byte;
tempnpm,tempnam,tempkod : string;
tempsem : byte;
tempnlai : char;
begin
clrscr;
i:=0;
writeln('DATA MAHASISWA !');
writeln;
repeat
i:=i+1;
writeln;
write('NPM : ');readln(tbl[i,1].npm);
write('Nama : ');readln(tbl[i,2].nama);
write('Kode : ');readln(tbl[i,3].kod);
write('Semester : ');readln(tbl[i,4].sem);
write('Nilai : ');readln(tbl[i,5].nlai);
writeln;
write('Anda ingin memasukkan data lagi (Y/N) ? ');readln(pil);
until (pil='n') or (pil='N');
writeln;
writeln('Tekan ENTER untuk melihat tabel mahasiswa!');
readln;
clrscr;
writeln;
writeln('|------------------------TABEL MAHASISWA---------------------|');
writeln('| |');
writeln('| NPM | NAMA | KODE | SEMESTER | NILAI |');
writeln('|------------------------------------------------------------|');
writeln;
a:=6;
for j:=1 to i do
begin
gotoxy(1,a);write('|');gotoxy(3,a);write(tbl[j,1].npm);gotoxy(13,a);
write('|');gotoxy(15,a);write(tbl[j,2].nama);
gotoxy(34,a);write('|');gotoxy(36,a);write(tbl[j,3].kod);
gotoxy(43,a);write('|');gotoxy(48,a);write(tbl[j,4].sem);
gotoxy(54,a);write('|');gotoxy(58,a);write(tbl[j,5].nlai);
gotoxy(62,a);writeln('|');
a:=a+1;
end;
writeln('| |');
writeln('|------------------------------------------------------------|');
readln;
end.