Struktur Data : Record

Record adalah suatu struktur data yang terdiri dari kumpulan elemen-elemen data yang digabungkan menjadi satu kesatuan, masing-masing elemen data tersebut disebut dengan field. Setiap field boleh berbeda tipe datanya.

Cara pendeklarasian dari record adalah sbb:

• Mendefinisikan tipe dari record (jumlah field, jenis tipe data yang dipakai)
• Mendefinisikan variabel untuk dilakukan operasi.

Bentuk umum pendeklarasiannya
 Type namarec = record
        field1 : tipedata;
        field2 : tipedata;
        …………………………………………..
        fieldn : tipedata;
    End;
Var nama_var : namarec;

Contoh :

type  mahasiswa = record
        Nama : string;
        NPM  : string;
        Alamat:  String;
    end;
Var  x: mahasiswa;

Pengaksesan Elemen Record   
Nama variable disertai nama field.
Contoh:
x.Nama    
x.NPM    
x.Alamat

Contoh :

Contoh:
program contoh_record;
Uses crt;
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.




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.NPM
x.Alamat
menjadi
with x do
Begin
Nama
NPM
Alamat
end.


Contoh:

program contoh_recordwith;
Uses crt;
type tanggal = record bulan, hari, tahun : integer;
end;
var waktu : tanggal;
begin
with waktu do
begin
hari :=25;
bulan:=09;
tahun:=1983;
writeln('hari ini adalah ',hari,':',bulan,':', tahun);
end. 

Array dari Record

Suatu array dapat juga berisi record, contoh suatu deklarasi record tanggal.
Contoh:

    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;

Record di dalam Record
Record yang 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

var saat_ini : waktu_ini;

pemberian nilai akan terjadi seperti di bawah ini:

saat_ini.tanggal.bulan:= 20;
saat_ini.tanggal.hari:= 09;
saat_ini.tanggal.tahun:= 2014;
saat_ini.waktu.jam:= 11;
saat_ini.waktu.menit:= 02;
saat_ini.waktu.detik:= 33;