Tutorial Pascal - Record Dalam Pascal
Record sanggup dikatakan sebagai suatu kumpulan data item yang masing-masing mempunyai jenis data berbeda.
Data item yang merupakan elemen record biasanya disebut dengan FIELD CARA MENDEKLARASIKAN RECORD Bentuk umum deklarasi suatu variabel berjenis record yakni sbb :
TYPE identifier = RECORD
Nama_field_1 : jenis;
Nama_field_2 : jenis;
……………………..
……………………..
nama_field_n : jenis;
END;
Contoh :
1. VAR nilai : RECORD
Nilai_1 : integer;
Nilai_2 : integer;
END;
2. TYPE date = RECORD
Tanggal : 1..31;
Bulan : 1…12;
Tahun : 1900..2000;
END;
VAR event1,event2 : ARRAY [1..10] OF date;
3. TYPE account = RECORD
cust_no : integer;
cust_type : char;
cust_balance : real;
END;
VAR customer : account;
4. type data_pegawai = record
kd_peg : string[5];
nama : string[15];
alamat : string[20];
gaji : longint;
end;
var
pegawai : data_pegawai;
program contoh_record_sederhana;
uses crt;
type data_pegawai = record
kd_peg : string[5];
nama : string[15];
alamat : string[20];
gaji : longint;
end;
var
pegawai : data_pegawai;
begin
clrscr;
write('Kode pegawai =');readln(pegawai.kd_peg);
write('Nama pegawai =');readln(pegawai.nama);
write('Alamat pegawai =');readln(pegawai.alamat);
write('Gaji pegawai =');readln(pegawai.gaji);
{cetak}
writeln('Kode pegawai :',pegawai.kd_peg);
writeln('Nama pegawai :',pegawai.nama);
writeln('Alamat pegawai :',pegawai.alamat);
writeln('Gaji pegawai :',pegawai.gaji);
readln;
end.
MEMPROSES VARIABEL BERJENIS RECORD
Perhatikan deklarasi variabel berikut :
TYPE nilai : RECORD
Nilai1 : real;
Nilai2 : real;
END;
VAR x,y : nilai;
Untuk memproses variabel x dan / atau y dilakukan dengan cara menyebutkan field designatornya, yg terdiri dari atas :
Nama_record.nama_field
Pada deklarasi diatas yang dimaksud dengan field designator-nya yakni :
x.nilai1
x.nilai2
y.nilai1
y.nilai2
STATEMENT “WITH”
Selain cara yang telah disebutkan diatas, untuk memproses suatu record sanggup dipakai statement WITH. Dengan statement ini penulisannya akan lebih sederhana.
Bentuk Umum penulisan statement WITH ini
adalah :
WITH nama_record DO statement
Perhatikan deklarasi dibawah ini :
TYPE x = RECORD
No : integer;
Kode : char;
Juml : integer;
Harga : real;
END;
VAR p,q : x;
Untuk membaca variabel p dan q di atas dengan memanfaatkan statement WITH
bentuknya menjadi :
WITH p,q DO read (no, kode, juml, harga);
