program tabel mahasiswa

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.