Program Array (Pendataan Mahasiswa)

Fungsi: Mendata data mahasiswa, atau apalah dengan array dan menampilkannya.

Hint: Intinya adalah membuat array di record.

Screen shot :

program mhsw;

uses crt;

type mahasiswa=record

               nama,nim,kelas:string;

               end;

var m:array[1..41] of mahasiswa;

       j,i:integer;

begin

write('Jumlah mahasiswa yang mendaftar : ');readln(j);

clrscr;

for i:=1 to j do

begin

writeln('Mahasiswa ',i,':');

write('Nama       : ');readln(m[i].nama);

write('Nim        : ');readln(m[i].nim);

write('Kelas      : ');readln(m[i].kelas);

  writeln;

  writeln;

  end;

clrscr;

writeln('==================================');

writeln;

writeln('DATA MAHASISWA KOMPUTOK');

writeln;

writeln('==================================');

for i:=1 to j do

begin

writeln('Mahasiswa ',i,':');

writeln('Nama       : ',m[i].nama);

writeln('Nim        : ',m[i].nim);

writeln('Kelas      : ',m[i].kelas);

writeln;

writeln;

end;

readln;

end.