Penggunaan Record

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.