R e c o r d

Record adalah tipe data kompleks yang elemen-elemennya boleh mempunyai tipe

data yang berbeda. Record lebih kompleks daripada array karena record merupakan

kumpulan beberapa variabel dengan tipe data yang berbeda. Berbeda dengan array

yang tiap elemennya ditandai dengan nomer indeks maka record ditandai dengan nama

variabel anggotanya. Cara mengakses elemen dari record dilakukan dengan

menyebutkan nama variabel anggota setelah menyebutkan nama record yang akan

diakses. Di antara nama record dan nama variabel anggota dipisahkan tanda titik (.).

Cara pendeklarasian record adalah sebagai berikut :

var

B : record

X : integer;

Y : real;

end;

Pada pendeklarasian di atas, maksudnya adalah sebagai berikut : variabel B berupa

record dengan dua elemen yaitu X bertipe integer dan Y bertipe real. Untuk

mengakses elemen dari variabel B seperti berikut : B.nama_variabel

contoh : B.X := 10;

Untuk lebih memahami penggunaan record dalam program, perhatikan contoh

berikut ini :

program Jumlah_Kompleks;

uses CRT;

Type

Kompleks = record

bil_real : integer;

bil_imaj : integer;

end;

var

K1, K2, H : kompleks;

procedure Awal;

begin

Writeln(' Latihan Pascal 3 : Array dan Record');

Writeln('------------------------------------');

Writeln;

Writeln('Nama : ____________________');

Writeln('NIM : __________');

Writeln;

end;

procedure JumlahKompleks(var Komp1, Komp2, KompHasil : kompleks);

begin

KompHasil.bil_real := Komp1.bil_real + Komp2.bil_real;

KompHasil.bil_imaj := Komp1.bil_imaj + Komp2.bil_imaj;

end;

procedure BacaData(var Komp : kompleks);

begin

Write('Bilangan real : ');

Readln(Komp.bil_real);

Write('Bilangan imajiner : ');

Readln(Komp.bil_imaj);

end;

procedure TulisKompleks(var Komp : kompleks);

begin

Write('(',Komp.bil_real:3,' + ',Komp.bil_imaj:3,'i)');

end;

begin

ClrScr;

Awal;

Writeln('Isi bilangan kompleks pertama :');

BacaData(K1);

Writeln;

Writeln('Isi bilangan kompleks kedua :');

BacaData(K2);

Writeln;

JumlahKompleks(K1, K2, H);

Writeln('Penjumlahan bilangan kompleks pertama dan kedua :');

TulisKompleks(K1);

Write(' + ');

TulisKompleks(K2);

Write(' = ');

TulisKompleks(H);

Writeln;

Writeln;

Write('Tekan Enter...');

Readln;

end.

Perhatikan program di atas. Untuk lebih jelasnya, jalankan program dengan F7

sehingga akan terlihat urutan jalannya program. Perhatikan pula bagaimana cara

mengakses elemen record seperti pada prosedur JumlahKompleks.