Pascal - Record dalam Pascal

Record dapat dikatakan sebagai suatu  kumpulan data item yang masing-masing  mempunyai jenis data berbeda.

Data item yang merupakan elemen record  biasanya disebut dengan FIELD CARA MENDEKLARASIKAN RECORD Bentuk umum deklarasi suatu variabel berjenis record adalah sbb :

TYPE identifier = RECORD

Nama_field_1 : jenis;

Nama_field_2 : jenis;

……………………..

……………………..

nama_field_n : jenis;

END;

Contoh :

1. VAR nilai : RECORD

   Nilai_1 : integer;

   Nilai_2 : integer;

   END;

2. TYPE date = RECORD

   Tanggal : 1..31;

   Bulan : 1…12;

   Tahun : 1900..2000;

   END;

   VAR event1,event2 : ARRAY [1..10] OF date;

3. TYPE account = RECORD

   cust_no : integer;

   cust_type : char;

   cust_balance : real;

  END;

  VAR customer : account;

4. type data_pegawai = record

        kd_peg : string[5];

        nama : string[15];

        alamat : string[20];

        gaji : longint;

   end;

var

   pegawai : data_pegawai;

   program contoh_record_sederhana;

uses crt;

type  data_pegawai = record

       kd_peg : string[5];

       nama : string[15];

       alamat : string[20];

       gaji : longint;

end;

var

      pegawai : data_pegawai;

begin

clrscr;

write('Kode pegawai =');readln(pegawai.kd_peg);

write('Nama pegawai =');readln(pegawai.nama);

write('Alamat pegawai =');readln(pegawai.alamat);

write('Gaji pegawai =');readln(pegawai.gaji);

{cetak}

writeln('Kode pegawai :',pegawai.kd_peg);

writeln('Nama pegawai :',pegawai.nama);

writeln('Alamat pegawai :',pegawai.alamat);

writeln('Gaji pegawai :',pegawai.gaji);

readln;

end.

MEMPROSES VARIABEL BERJENIS  RECORD

Perhatikan deklarasi variabel berikut :

TYPE nilai : RECORD

           Nilai1 : real;

           Nilai2 : real;

END;

         VAR x,y : nilai;

Untuk memproses variabel x dan / atau y  dilakukan dengan cara menyebutkan field  designatornya, yg terdiri dari atas :

Nama_record.nama_field

Pada deklarasi diatas yang dimaksud dengan field designator-nya adalah :

x.nilai1

x.nilai2

y.nilai1

y.nilai2

STATEMENT “WITH”         

Selain cara yang telah disebutkan diatas,  untuk memproses suatu record dapat digunakan statement WITH. Dengan statement ini penulisannya akan  lebih sederhana.

Bentuk Umum penulisan statement WITH ini

adalah :

WITH  nama_record DO statement

Perhatikan deklarasi dibawah ini :

TYPE x = RECORD

       No : integer;

       Kode : char;

       Juml : integer;

       Harga : real;

END;

VAR p,q : x;

Untuk membaca variabel p dan q di atas dengan memanfaatkan statement WITH

bentuknya menjadi :

WITH p,q DO read (no, kode, juml, harga);

Share this post