Record (Rekaman) Dalam Pascal

Sebuah record rekaman disusun oleh beberapa field. Tiap field berisi data dari tipe dasar / bentukan tertentu. Record mempunyai kelebihan untuk menyimpan suatu sekumpulan elemen data yang berbeda-beda tipenya (di banding array). Contoh , sebuah record dengan empat buah field.

   • Field 1

   • Field 2

   • Field 3

   • Field 4

Cara pendeklarasian dari record adalah sbb:

• Mendefinisikan tipe dari record (jumlah field, jenis tipe data yang dipakai),

• Mendefinisikan variabel untuk dilakukan operasi.

SYNTAX

   type

   nama_record = record

   identifier_1 : tipe_data_1;

   :

   :

   identifier_n : tipe_data_n;

   end;

   var variabel : nama_record;

Contoh:

   type

   Data_mahasiswa = record

   Nama : string;

   Usia : integer;

   Kota : String;

   Kodepos : integer;

   end;

   Var

   x: Data_mahasiswa;

1. Pengaksesan Elemen Record

Nama variable disertai nama field.

   x.Nama

   x.Usia

   x.Kota

   x.Kodepos

Contoh.

   program RECORD_INTRO;

   type tanggal = record

   bulan, hari, tahun : integer;

   end;

   var waktu : tanggal;

   begin

      waktu.hari :=25;

      waktu.bulan:=09;

      waktu.tahun:= 1983;

      writeln('hari ini adalah ',waktu.hari,':',waktu.bulan,':',           waktu.tahun)

   end.

2. Pengunaan With … do

Pernyataan with untuk lebih menyederhanakan pengaksesan field-field pada record. Pemrograman dapat mengakses field cukup dengan menyebutkan nama field-nya saja. Misalkan pernyataan :

   x.Nama

   x.Usia 

   x.Kota

   x.Kodepos

menjadi:

   with x do

   Begin

   Nama

   Usia 

   Kota

   Kodepos

   end

Contoh.

   program RECORD_INTRO;

   type tanggal = record

   bulan, hari, tahun : integer;

   end;

   var waktu : tanggal;

   begin {program utama}

      with waktu do {mulai with}

      begin

         hari :=25;

         bulan:=09;

         tahun:=1983;

         writeln('hari ini adalah ',hari,':',bulan,':', tahun)

      end {akhir with}

   end.

3. Array dari Record

Suatu array dapat juga berisi record contoh suatu deklarasi record tanggal.

   type tanggal = record

   bulan, hari, tahun : integer;

   end;

   var waktu : tanggal;

kemudian kita membentuk suatu array dari record ini, namakan birthdays.

   var birthdays : array[1..10] of tanggal;

pernyataan ini akan membentuk suatu array dengan 10 elemen. Dimana tiap elemen adalah sebuah record tanggal, yaitu, terdiri atas bulan, hari, tahun dengan tipe data Integer.

Digambarkan seperti berikut:

Contoh Pemberian nilai awal dari masing-masing elemen birthdays:

   Birthdays[1].hari :=25;

   Birthdays[1].bulan:=09;

   Birthdays[1].tahun:=1983;

4. Record di dalam Record

Record bisa berisi record lain sebagai field. Seperti contoh record tanggal dan jam dikombinasikan menjadi sebuah record saat ini,

   type tanggal = record

   bulan, hari, tahun : integer;

   end;

   type waktu =record 

   jam, menit, detik : integer;

   end;

   type waktu_ini =record

   tanggal_ini : tanggal;

   waktu_ini : waktu

   end;

Kemudian kita perlu membuat variabel kerja

   var saat_ini : waktu_ini;

pemberian nilai akan terjadi seperti di bawah ini:

   saat_ini.tanggal.bulan:= 11;

   saat_ini.tanggal.hari:= 2;

   saat_ini.tanggal.tahun:= 1985;

   saat_ini.waktu.jam:= 3;

   saat_ini.waktu.menit:= 3;

   saat_ini.waktu.detik:= 33;

SEKIAN.......