Pengolahan Data dalam satu kelompok data yang memiliki tipe data yang berbeda-beda dapat diproses dengan menggunakan Data Record. Data Record dibuat dengan mendeklarasikan sebuah tipe data record. Data record terdiri dari beberapa variabel/ field dengan tipe yang berbeda-beda.
Cara mendeklaraikan sebuah nama record diawali dengan kata kunci type dan diakhiri dengan kata kunci End .
Bentuk Deklarasi Nama Record
Type
Nama record = record
Field-1 : tipe data;
Field-1 : tipe data;
………………..
………………..
Field-n : tipe data;
End;
Data pegawai adalah contoh sekelompok data yang terdiri dari beberapa atribut pegawai seperti Kode pegawai, nama, alamat, golongan, gaji, dan sebagainya.
Karena itu, data pegawai dapat difenisikan sebagai sebuah tipe data record sbb :
type
data_pegawai = record
kode_peg : string[5];
nama : string[15];
alamat : string[20];
kota : string[20];
gaji : longint;
end;
Data pegawai di atas dideklarasikan dengan nama data_pegawai, dimana data_pegawai biasa disebut nama record.
Setelah mendeklarasikan nama record, maka nama record tersebut dapat digunakan sebagai tipe data pada deklarasi variabel, misalnya :
var
pegawai : data_pegawai;
Variabel pegawai adalah variabel bertipe record. Dengan menggunakan variabel pegawai, kita dapat mengakses atribut atau field dari data pegawai. Cara mengakses atau membaca sebagai berikut :
1. Bentuk : nama_record.nama field
Contoh :
Pegawai.kode_peg;
Pegawai.nama;
Jika data pegawai lebih satu, maka kita mendeklarasikan variabel pegawai dengan bentuk array sbb :
var
pegawai : array[1..20] of data_pegawai;
Cara aksesnya adalah dengan menambahkan indeks array pada variabel pegawai sebagai berikut :
Pegawai[i].kode_peg;
Pegawai[i].nama;
2. Bentuk With – do
Bentuk with –do digunakan untuk menyederhanakan cara pembacaan field dari sebuah record. Contoh :
With pegawai do
Begin
write(' Kode :');readln(kode_peg);
write(' Nama :'); readln(nama);
End;
Jika data pegawai lebih dari satu, maka cara aksesnya adalah dengan menambahkan indeks array pada variabel pegawai sebagai berikut :
With pegawai [i] do
Begin
write(' Kode :');readln(kode_peg);
write(' Nama :'); readln(nama);
End;
Program lengkapnya adalah sebagai berikut :
Program DataPegawai;
Uses crt;
type
data_pegawai = record
kode_peg : string[5];
nama : string[15];
alamat : string[20];
kota : string[20];
gaji : longint;
end;
var
pegawai : array[1..20] of data_pegawai;
i, n: integer;
Begin
clrscr;
write('Jumlah Pegawai =');readln(n);
For i:=1 to n do
Begin
For i:=1 to n do
Begin
With pegawai[i] do
Begin
write(' Kode :');readln(kode_peg);
write(' Nama :'); readln(nama);
write(' Alamat :'); readln(alamat);
write(' Kota :'); readln(kota);
write(' Gaji :'); readln(gaji);
End;
End;
End;
Write('Kode Nama Alamat Kota Gaji'); Writeln;
For i:=1 to n do
Begin
With pegawai[i] do
Begin
write(kode_peg);
write(' ',nama);
write(' ',alamat);
write(' ',kota);
write(' ',gaji);
End;
writeln;
End;
readkey;
End.
Semoga bermanfaat.
God bless you all.
makasih mas penjelasan nya...
BalasHapussangat membantu :)
sama-sama mas
Hapuskegunaan readkey buat apaan kang? bisa dijelasin ga?
BalasHapusnuhun
fungsi perintah readkey untuk menghentikan proses program dan akan dilanjutkan dengan menekan sembarang tombol.
Hapuscontoh : write("Tekan sembanrang tombol");
readkey;
Informasi "Tekan sembarang tombol untuk melanjutkan" akan tampak di layar. sementaran proses program berhenti sementara hingga menekan sembarang tombol.
Semoga bermanfaat.