Record merupakan jenis data
terstruktur yang mengandung sejumlah elemen dengan setiap elemen mempunyai tipe
data yang berlainan atau sama. Masing-masing elemen dalam record dikenal dengan
sebutan field. Bentuk umum deklarasi
tipe data record adalah sebagai berikut :
TYPE
data_record =
RECORD
field1 :
tipe_data1;
field2 :
tipe_data2;
field3 :
tipe_data3;
...
...
fieldn :
tipe_datan;
END;
VAR
nama_var :
data_record;
Record terdiri dari beberapa
field. Untuk itu, perlu operator untuk memanggil field dalam suatu field. Ada
dua cara pemanggilan field, yaitu :
1. Menggunakan operator titik (.) yang bentuk
umumnya adalah nama_var.fieldn.
2. Menggunakan statement berikut :
WITH nama_var DO
BEGIN
field1;
field2;
...
...
fieldn;
END;
A. LATIHAN SOAL
- Nomor Program 1301
a. Tulislah program berikut dan amatilah
outputnya!
PROGRAM myrecord;
USES CRT;
TYPE
pohon = RECORD
daun : integer;
batang : real;
akar :
string[20];
END;
VAR
mangga : pohon;
BEGIN
CLRSCR;
mangga.daun :=
500;
mangga.batang :=
60.3;
mangga.akar :=
‘tunggang’;
WRITELN(‘Ini
adalah data-data pohon mangga saya’);
WRITELN(‘Jumlah
daun ‘,mangga.daun:8);
WRITELN(‘Diameter
batan : ‘,mangga.batang:8:2);
WRITELN(‘Jenis
akar : ‘,mangga.akar);
READLN;
END.
ADS HERE !!!