Penggunaan record program DATA_Mahasiswa; uses wincrt; type Mahasiswa=record nama :string[20]; NPM :string[9]; JK
:string[1];
HP
:string[12];
Email :string[25]; end; arraym = array[1..100] of Mahasiswa; var n: 1..100; b : arraym; i:integer; begin writeln('Data Mahasiswa MIPA Matematika'); write('n data:'); readln(n); for i:=1 to n do begin write('nama:'); readln(b[i].nama);
write('NPM:'); readln(b[i].NPM); write('Jenis Kelamin:'); readln(b[i].JK); write('HP:'); readln(b[i].HP); write('Email:'); readln(b[i].Email); end; clrscr; writeln; writeln('****************************************************************************'); writeln('
Nama
NPM
JK
HP
Email');
writeln('****************************************************************************'); for i:=1 to n do writeln(b[i].nama:20,b[i].NPM:10,b[i].JK:3,b[i].HP:15,b[i].Email:25); writeln('****************************************************************************'); end.