program turbo pascal

Array Berisi Record

kali ini saya posting tentang record dan array,ada yang record berisi array,ada yang array berisi record,masing2 ada penjelasannya,yang sekarang bagian array yang berisi record. Pembuatan array yang elemen-elemennya berupa record sebenarnya sangat sederhana,konsepnya sama seperti kita mendefinisikan array untuk tipe data dasar (integer,real,string,char). Langkah awal untuk melakukan ini kita harus mendefinisikan record terlebih dahulu yang selanjutnya akan dijadikan tipe data pada saat pendeklarasian array,kaya gini gan :

type

 {Mendefinisikan tipe data record dgn nama Tmahasiswaiswa}

 Tmahasiswa = record

  NIM : string[8];

  Nama: string[30];

 end;

 {mendefinisikan tipe data berupa Array dari tipe Tmahasiswa}

 TKumpulanSiswa = array[1..100] of Tmahasiswa;

 {deklarasikan variabel dengan yang bertipe TKumpulanmahasiswa}

var

 A : TKumpulanmahasiswa; 

Terlihat diatas bahwa tipe TkumpulanMahasiswa merupakan tipe bentukan berupa array dimana setiap elemennya berupa record TMahasiswa. Selanjutnya tipe tersebut digunakan untuk mendeklarasikan variabel A. Dengan demikian,variabel A dapat menampung 100 buah record yang bertipe TMahasiswa.
berikut contoh programnya gan :

program ArrayRecord;

uses wincrt;

const max = 100;

type

 Tmahasiswa = record

  NIM:string[8];

  Nama:string[30];

 end;

TKumpulanmahasiswa = array[1..max] of TMahasiswa;



var

 a: TkumpulanMahasiswa;

 i,n: integer;

begin

 clrscr;

 write('Masukan jumlah mahasiswa yang diinginkan :');

 readln(n);

 writeln;



 {masukan data ke array}

 writeln('Memasukan data');

 writeln('________________');

 for i:=1 to n do begin

  writeln('Data mahasiswa ke :',i);

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

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

  writeln;

 end;

 clrscr;

 {menampilkan data dari array}

 writeln;

 writeln('DAFTAR MAHASISWA');

 writeln('_________________');

 writeln('    NIM ','':2,'  NAMA');

 writeln('_________________');

 for i:=1 to n do begin

  with A[i] do begin

   writeln(NIM:8, '':2, Nama);

  end;

 end;

end.

Jika dijalankan harus menghasilkan result seperti ini :

 

jika kita memasukkan 5, maka kita di suruh mengimputkan data sebanyak 5 jga,
seperti contoh di atas, dan jika kita enter maka hasilnya akan menjadi seperti gambar
di bawah ini :

gi mna gan, mudah kan??