Array Bag VIII (Array Berisi Record) #76

andrypein.net : Selamat datang kembali gan kali ini tentang record dan array, ada yang record berisi array, ada yang array berisi record, masing2 ada penjelasannya, yang sekarang bagian array 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 seperti ini gan :

type
 {Mendefinisikan tipe data record dgn nama TSiswa}
 TSiswa = record
  NIM : string[8];
  Nama: string[30];
 end;
 
 {mendefinisikan tipe data berupa Array dari tipe TSiswa}
 TKumpulanSiswa = array[1..100] of TSiswa;

 {deklarasikan variabel dengan yang bertipe TKumpulanSiswa}
var
 A : TKumpulanSiswa; 

Terlihat diatas bahwa tipe TkumpulanSiswa merupakan tipe bentukan berupa array dimana setiap elemennya berupa record TSiswa. Selanjutnya tipe tersebut digunakan untuk mendeklarasikan variabel A.

Dengan demikian,variabel A dapat menampung 100 buah record yang bertipe TSiswa.

berikut contoh programnya gan :

program ArrayRecord;
uses wincrt;
const max = 100;
type
 TSiswa = record
  NIM:string[8];
  Nama:string[30];
 end;
TKumpulanSiswa = array[1..max] of TSiswa;

var
 a: TkumpulanSiswa;
 i,n: integer;
begin
 clrscr;
 write('Masukan jumlah siswa yang diinginkan');
 readln(n);
 writeln;
 
 {masukan data ke array}
 writeln('Memasukan data');
 writeln('________________');
 for i:=1 to n do begin
  writeln('Data siswa ke-',i);
  write('NIM :');readln(A[i].NIM);
  write('Nama:');readln(A[i].Nama);
  writeln;
 end;
 
 {menampilkan data dari array}
 writeln;
 writeln('DAFTAR SISWA');
 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 :

Masukan jumlah siswa yang diinginkan :2

Memasukan data
------------------
Data siswa ke1
NIM  :123456789
Nama :Andry

Data siswa ke-2
NIM : 456321879
Nama: Fadrie

DAFTAR SISWA
----------------
NIM        Nama
123456789  Andry
456321879  Fadrie

mudah kan?? posting selanjutnya berupa kebalikannya, yaitu record yang berisi array.

Sekian penjelasan minimal dari postingan array berisi record ini semoga  bermanfaat.

*AFK