RECORD KONSEP Armadyah Amborowati , Jurusan Teknik Informatika, STMIK AMIKOM Yogyakarta, Jl. Ring Road Utara, Condong Catur, Sleman, Yogyakarta Indonesia 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. Gambar perbedaan antara tipe standar, tipe array, dan tipe record.
Type standar A
Var A:integer; { ada satu tempat penyimpanan yang bernama A }.
Type Array 1
2
3
Array bernama mhs Variabel bernama m Type mhs=array[1..3]of string; Var m:mhs; Ada suatu array yang bernama mhs, dimana array mhs adalah kumpulan dari suatu variable yang bernama m ( jumlah variable yang bernama m ada 3 ).
Type Record
Record bernama mhs Variabel bernama m
NIM
Nama
Alamat
Ada suatu record yang bernama mhs. Record ini terdiri dari 3 bagian atau field yang bernama nim, nama, dan alamat
yang
disimpan
dalam
suatu
variable
yang
bernama m { satu variavel terdiri dari beberapa bagian atau space }.
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;
9.1. Cara mengakses Record 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.alamat); readln; end.
Output:
Contoh 2: Program C_record1; uses wincrt; type mhs=record nim:string[10]; nama:string;
',m.nama,'
alamat:string; end; var m:mhs; i:integer;
begin for i:=1 to 3 do 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); writeln('============================='); end; readln; end.
Output:
2. Menggunakan With..Do Pernyataan
ini
digunakan
untuk
memperpendek
pengaksesan field-field pada record. Pengaksesan field pada record hanya dengan memanggil nama filednya saja.
Sintak. With nama variable Do Begin Nama filed 1 ….. Nama filed n End; Contoh 1:
Program C_with; uses wincrt; type mhs=record nim:string[10]; nama:string; alamat:string; end; var m:mhs;
begin With m Do begin
writeln('NIM mahasiswa='); readln(nim); writeln('nama='); readln(nama); writeln('alamat='); readln(alamat); writeln; writeln('Data mhs=',nim,'
',nama,'
',alamat); writeln('============================='); end; readln; end.
Output:
contoh 2: Program C_with1; uses wincrt; type mhs=record nim:string[10]; nama:string; alamat:string; end; var m:mhs; i:integer;
begin
With m Do begin for i:=1 to 3 do begin writeln('NIM mahasiswa='); readln(nim); writeln('nama='); readln(nama); writeln('alamat='); readln(alamat);
writeln; writeln('Data mhs=',nim,'
',nama,'
',alamat); writeln('============================='); end; end; readln; end.
Output:
9.2. Record dalam array Sintak: Type Nama_record=record Field_1: typedata_1; … field_n: typedata_n; end;
nama_array=array[range] of nama_record; var nama_variabel:nama_array; Contoh:
Array bernama data_mhs Record bernama mhs, nama variable m Nim
Alamat
Nama Ada suatu array yang bernama data_mhs. Array ini terdiri dari tiga variable yang bernama m. Variabel m ini bertype record dimana tiap variable terdiri dari beberapa bagian atau space yaitu nim, nama, dan alamat. Contoh:
Program C_r_array; uses wincrt; type
mhs=record nim:string[10]; nama:string; alamat:string; end; data_mhs=array[1..3] of mhs; var m:data_mhs; i:integer;
begin
for i:=1 to 3 do begin With m[i] Do begin writeln('NIM mahasiswa=','
',i);
readln(nim); writeln('nama=','
',i); readln(nama);
writeln('alamat=','
',i);
readln(alamat); writeln; writeln(nim,'
',nama,'
',alamat);
writeln('============================='); end;
end;
readln; end.
Output:
Latihan.
1.
Nama Record---Æ Barang Nama Field-----Æ Kd_barang, Nama, Harga, Jumlah
Buat
program
untuk
input
dan
output
dengan
menggunakan metode mengakses record no.1 ( nama variabel disertai nama field ). 2. Dengan gambar yang sama, buat program untuk input dan output dengan menggunakan metode mengakses record no. ( menggunakan with .. do ). 3.
Nama array---Æ Data pegawai Nama Record-Æ pegawai Nama variable--Æ p Nama Field--Æ NIP, nama, gaji Pokok
Buat
program
untuk
input
dan
output
dengan
¿cmenggunakan metode mengakses record dalam Array 1 Dimensi. ( Gunakan perulangan dan with..do ).
4. Nama array---Æ Nilai
Nama Record-ÆData_nilai Nama variable--Æ N Nama Field--Æ N1, N2, N3 Ordo----------Æ 3x3 Buat
program
untuk
input
dan
output
dengan
menggunakan metode mengakses record dalam Array 2 Dimensi. ( Gunakan perulangan dan with..do ).
DAFTAR PUSTAKA Abdul Kadir, Pemrograman Dasar Turbo Pascal, Andi Offset, 1991. Indra Yatini B., Pemrograman Terstruktur, J&J Learning, 2001. Insap Santosa P., Dasar-dasar Pemrograman Pascal: Teori dan Program, Andi Offset, 1991. Jogiyanto, H.M., Teori dan Aplikasi Program Komputer Bahasa Pascal Jilid I, Andi Offset, 1995. Mamdyh
M. Hanafi, Pemrograman Terstruktur dengan Bahasa Pascal, BPFE, 1995.
http://ft.uns.ac.id/ts/kul_ol/pascal/pascal3.html http://sipil.uns.ac.id/kulol/Bahasa_Komputer/pasc al1.html http://id.wikipedia.org/wiki/Pascal_(bahasa_pemro graman
