Materi RECORD

#1 Deklarasi Record

Berikut ini merupakan cara pendeklarasioan tipe data record:

Type
Data_Barang = Record
    Nama : string;
    Kualitas : char;
    Harga : longint;
    End;
Var Barang : Data_Barang;

Penjelasan:

Pada contoh diatas kita membuat deklarasi record yang menunjukkan bahwa variabel barangmengandung tiga buah field, yaitu : Nama, Kualitas, dan Harga.

Jadi yang kita lakukan adalah membuat tipe Data_Barang (record berisi: nama, kulitas, dan harga) yang kemudian kita deklarasikan ke dalam variabel Barang.

#2 Field Record

Field dari suatu record dapat diakses dengan bentuk nama record dan nama field dipisahkan dengan tanda titik (.). Berikut adalah contoh bagaimana cara penulisannya:

Vaiabel.field

Berikut adalah contoh dimana kita memiliki field Nama dari variabel record bernama Barang

Barang.Nama

Sehingga untuk mencetak nilai dari dalam record anda hanya perlu menulis:

writeln(Barang.Nama);

Catatan: Isi dari suatu record tidak dapat ditampilkan dengan write atau writeln secara langsung misal writeln(Barang). Melainkan harus melalui field recordnya.

#3 Contoh Record pada Program Pascal

Pada contoh kali ini saya akan membuat program yang berisi data mahasiswa. Idenya adalah kita akan memaksukan nama dana npm kedalam record mhs dan mencetaknya:

Pertama kita akan mendeklarasikan tipe data mhs:

Type mhs = record
  NPM : String[15];
  Nama : String[20];
  End;
Var data : mhs;

Kemudian kita harus memasukan nilai ke masing-masing field:

Write('NPM : ');Readln(data.NPM);
Write('Nama : ');Readln(data.Nama);

Dan terakhir kita akan mencetak masing-masing field:

Writeln('NPM : ',data.NPM);
Writeln('Nama : ',data.Nama);

Sehingga jika digabung menjadi contoh prgram utuh akan menjadi seperti berikut:

Program Data_Mahasiswa;
Uses crt;
Type mhs = record
  NPM : String[15];
  Nama : String[20];
  End;
Var data : mhs;
Begin
  Write('NPM : ');Readln(data.NPM);
  Write('Nama : ');Readln(data.Nama);
  Writeln;
  Writeln;
  Writeln('NPM : ',data.NPM);
  Writeln('Nama : ',data.Nama);
  Readln;
end.

#4 Statemen Pernyataan WITH … DO

Program Pascal menyediakan pernyataan With…..Do untuk mempermudah pengetikan dan mengurangi kesalahan dalam penggunaan tipe data record.

Bentuk pernyataan with...do adalah sebagai berikut :

WITH nama_recrod DO
  Statemen;

Penggunaan statemen with...do mengakibatkan field-field yang terletak pada bagian statemen dapat dituliskan tanpa perlu menyertakan lagi nama record dan tanda titik.

Berikut Contoh penggunaan statemen with ... do pada program diatas:

Program Data_Mahasiswa;
Uses crt;
Type mhs = record
  NPM : String[15];
  Nama : String[20];
  End;
Var data : mhs;
Begin
  With data do
    Begin
      Write('NIM : ');Readln(NIM);
      Write('Nama : ');Readln(Nama);
    End;

  Writeln('NPM : ',data.NPM);
  Writeln('Nama : ',data.Nama);
  Readln;
end.