Contoh Data Record Dalam Program Pascal

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.

4 comments:

  1. makasih mas penjelasan nya...
    sangat membantu :)

    ReplyDelete
  2. kegunaan readkey buat apaan kang? bisa dijelasin ga?
    nuhun

    ReplyDelete
    Replies
    1. fungsi perintah readkey untuk menghentikan proses program dan akan dilanjutkan dengan menekan sembarang tombol.
      contoh : 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.

      Delete

Silakan memberikan komentar dan pertanyaan yang sifatnya positif.