RECORD
(Rekaman)
Record
(Rekaman)
ü
Tipe data record digunakan untuk menyimpan sejumlah
data dengan nilai dengan tipe data yang berbeda dalam satu wadah.
ü
perbedaan
antara record dengan larik adalah bahwa dalam larik semua
elemenya harus bertipe sama, tetapi dalam record set mempunyai tipe yang
berbeda antara satu sama lainnya.
Contoh Penulisan :
Type
Pengenal = Record
Namafield-1 : Type
Namafield-2 : Type
……
Namafield-N : Type
End
Atau dapat juga dideklarasikan sebagai berikut:
Var
Pengenal = Record
Namafield-1 : Type
Namafield-2 : Type
……
Namafield-N : Type
End
Contoh
:
type
data_pegawai = record
kd_peg
: string[5];
nama
: string[15];
alamat
: string[20];
gaji
: longint;
end;
var
pegawai : data_pegawai;
Atau langsung di deklarasikan di varibel :
var
pegawai
: record
kd_peg
: string[5];
nama
: string[15];
alamat
: string[20];
gaji
: longint;
end;
type
data_pegawai = record
kd_peg : string[5];
nama : string[15];
alamat : string[20];
gaji : longint;
end;
var
pegawai :
data_pegawai;
Statement With
ü Digunakan
untuk mempersingkat penulisan dalam pembacaan field,
ü Penulisan
:
with
namaRecord do
Contoh
program :
begin
clrscr;
with pegawai do
begin
kd_peg
:= ‘001';
nama := ‘Andi
Sujarwo';
alamat:= ‘Jl.
Kyi Telingsing No 56 Kudus';
gaji:=1500000;
end;
Record dalam array
ü Dalam
contoh sebelumnya penggunan tipe data record hanya dapat menyimpan satu record.
ü Untuk
dapat menyimpan sejumlah record maka dapat digunakan array yang bertipe record
yang sudah didifinisikan
Contoh
program :
type
data_pegawai
= record
kd_peg
: string[5];
nama
: string[15];
alamat
: string[20];
gaji
: longint;
end;
var
pegawai
: array[1..10] of data_pegawai;
i
: integer;
Contoh program (Lanj)
begin
clrscr;
for I:= 1 to 10 do
begin
with pegawai[i] do
Field record yang bertipe
array:
ü
Jika dalam suatu record terdapat beberapa field yang
sama tipenya dapat digunakan array.
ü
Contoh ada data barang yang mempunyai struktur.
-
Nama barang -> bertipe String
-
Jumlah unit barang ke 1 -> bertipe Byte
-
Jumlah unit barang ke 2 -> bertipe Byte
-
Jumlah unit barang ke 3 -> bertipe Byte
Contoh:
type
data_brg
= record
namaBrg
: string[15];
unitBrg
: array[1..3] of byte;
end;
var
Barang
: array[1..10] of data_brg;
Tipe data
record dengan field tipe record
ü Dalam
Turbo Pascal tipe data record dapat didefinisikan juga sebagai field dari suatu
record.
ü Artinya
suatu record dapat juga mempunyai field yang merupakan record.
Contoh:
sebuah data
pegawai mempunyai struktur sebagai berikut :
-
Nama pegawai -> string
-
Mulai masuk -> - Tgl
- Bln
- Thn
-
Alamat pegawai -> - Jalan
- Kota
-
Gaji -> - Gaji pokok
- Lembur
- Tunjangan
Contoh
type
masuk
= record
tgl
: 1..31;
bln
: 1..12;
thn
: integer;
end;
alamat
= record
jalan
: string[20];
kota
: string[10];
end;
Contoh (Lanj)
gajipeg
= record
pokok,tunjangan,lembur
: real;
end;
datapegawai
= record
nama
: string[20];
tglmasuk
: masuk;
almt
: alamat;
gaji
: gajipeg;
end;