tugas work file-pascal

Coding Program

uses crt;

const MAX=100;

Type

TSiswa=record

NAMA :string[25];

NPM :string[8];

KELAS :string[5]

end;

TKumpulansiswa=array[1..MAX] of TSiswa;

var

A:TKumpulansiswa;

i,N:integer;

begin

clrscr;

write('MASUKKAN JUMLAH MAHASISWA YANG INGIN DIISIKAN :');

readln(N);

writeln;

writeln('JUMLAH MAHASISWA');

writeln('_______________');

for i:=1 to N do begin

writeln('DATA MAHASISWA KE-', i);

write('NAMA : '); readln(A[i].NAMA);

write('NPM : '); readln(A[i].NPM);

write('KELAS : ');readln(A[i].KELAS);

writeln;

end;

writeln;

writeln('JUMLAH MAHASISWA');

writeln('_____________________________________________');

writeln('NAMA          ','':2,  '     NPM          '   ,'':3,'KELAS' );

writeln('_____________________________________________');

for i:=1 to N do begin

with A[i] do begin

writeln(NAMA:1,        '', NPM:20,         '           ',KELAS);

end;

end;

readln;

end.

Print Screen

Output