Algoritma & Pemrograman 1 ( Record Pada Pascal )

RECORD (REKAMAN)

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.

Cara pendeklarasian dari record adalah sbb:

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

• Mendefinisikan variabel untuk dilakukan operasi.

Perbedaan Record dan Array

• Elemen record bersifat heterogen, yaitu campuran beberapa tipe data, sedangkan elemen array bersifat homegen
• Elemen record didefisinisikan dengan simbol/identifer sedangkan elemen array diidentifikasi dengan indeks.

Bentuk umum record

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;

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.

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.

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.

Contoh Pemberian nilai awal dari masing-masing elemen birthdays:

Birthdays[1].hari :=25;

Birthdays[1].bulan:=09;

Birthdays[1].tahun:=1983;

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 informasi singkat tentang record pada pascal 

Semoga Bermanfaat