Record

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 . Record didefinisikan satu variable yang terbagi atas beberapa bagian.

field recordMendefinisikan tipe dari record (jumlah field, jenistipe data yang dipakai), Mendefinisikan variabel untuk dilakukan operasi

SYNTAX
type
nama_record = record
filed_1 : tipe_data_1;

field_n : tipe_data_n;
end;
var variabel : nama_record;

Contoh:
Type mhs=record
    Nim:string[10];
    Nama:string;
    Alamat:string;
End;
Var m:mhs;

Cara mengakses Record ada dua cara, yaitu

  1. Nama variable disertai nama field.

Sintak:
Nama variable.nama field

Contoh 1:

Program C_record;
uses wincrt;
type
mhs=record
nim:string[10];
nama:string;
alamat:string;
end;
var m:mhs;
begin
writeln('NIM mahasiswa='); readln(m.nim);
writeln('nama='); readln(m.nama);
writeln('alamat='); readln(m.alamat);
writeln;
writeln('Data mhs=',m.nim,' ',m.nama,'
',m.alamat);
readln;
end.
2. menggunakan perintah With-DO

Pernyataan with untuk lebihmenyederhanakan pengaksesan field-field pada record. Pemrograman dapat mengakses field cukup dengan menyebutkan nama field-nya saja.

x.Nama 
x.Usia 
x.Kota 
x.Kodepos 

diganti

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.

Jika Ingin memasukkan banyak data kedalam record kita dapat gunakan perulangan sebanyak data yang dikehendaki

Contoh
program RECORD_INTRO; 
type tanggal = record 
          bulan, hari, tahun : integer; 
          end; 
var 
   waktu : tanggal; 
   i:integer;
begin {program utama} 
for i:=1 to 10 do
  begin
   with waktu do {mulai with} 
   begin 
      hari :=25; 
      bulan:=09; 
      tahun:=1983; 
      writeln('hari ini adalah ',hari,':',bulan,':', tahun) 
   end; {akhir with} 
  end;
end.

materi lain (Oleh:Armadyah Amborowati) dapat download disini

 

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s