RECORD & ARRAY OF RECORD PASCAL

RECORD & ARRAY OF RECORD

<!--[if !supportLists]-->1.       <!--[endif]-->Pendahuluan

Menggunakan array, Anda hanya dapat menyimpan nilai-nilai yang Anda masukkan ke dalam memori selama program berjalan dalam tipe yang sama. Sebagai contoh, Anda tidak akan dapat menyimpan data selain berbentuk bilangan bulat bila telah array telah Anda definisikan sebagai jenis integer. Agar Anda dapat menyimpan berbagai jenis data saat program Anda berjalan, Anda memerlukan mekanisme lain untuk melakukan hal tersebut dalam Pascal, dalam hal ini adalah record.

Dengan record, Anda dapat menyimpan suatu nilai berbentuk integer, real, char, string, atau tipe data lain bersama-sama. Ini memungkinkan pengguna program untuk dapat menyimpan berbagai data secara bersamaan selama program masih berjalan, dan dapat menggunakan data tersebut untuk berbagai keperluan. Yang perlu diperhatikan, record biasanya terdiri atas beberapa field saja, sehingga sulit digunakan untuk menyimpan data dalam jumlah sebanyak array. Hal ini disebabkan karena tidak ada mekanisme indeks dalam record. Untuk itu digunakan kombinasi array dan record yang disebut dengan array of record.

Array of record memungkinkan untuk menyimpan banyak data (sebanyak indeks array), masing-masing data berisikan ‘properti’ yang terdiri atas berbagai jenis data (sebanyak field dari record). Karena itu sangat penting untuk menguasai array of record ini sebagai dasar untuk melakukan pemrograman yang melibatkan banyak data sekaligus yang terdiri atas berbagai jenis data. Bila bagian ini telah dikuasai, Anda siap untuk melakukan manipulasi data yang lebih jauh lagi melalui suatu pemrograman menggunakan Pascal.

<!--[if !supportLists]-->2.       <!--[endif]-->Kata cadangan yang digunakan

Program     :  spesifikasi nama program dan parameternya, bersifat dekoratif dan tidak terlalu mempengaruhi keseluruhan program itu sendiri

Uses              :   mendefinisikan nama unit yang akan direferensi oleh program

Var                 :   menghubungkan sebuah identifier dan tipenya dengan suatu lokasi di memori dimana nilai-nilai dari tipe tersebut dapat disimpan

Begin             :   memulai suatu blok program

End                :   mengakhiri suatu blok program

Array             :   digunakan untuk mendefinisikan sebuah jenis array

Record          :   digunakan untuk mendeklarasikan record berisi kumpulan data dari berbagai tipe data

With              :   digunakan untuk melakukan referensi ke suatu field dalam record

Type              :   digunakan untuk mendeklarasikan suatu identifier yang memiliki tipe data tertentu

Do                  :   digunakan untuk menyebutkan aksi yang akan dilakukan

For                 :   mendefinisikan nilai awal perulangan

To                   :   mendefinisikan nilai akhir perulangan (perulangan positif)

If                     :   menyebutkan kondisi untuk suatu statemen agar dapat dieksekusi

Then              :   menyebutkan statemen aksi yang harus dijalankan saat kondisi terpenuhi

Else                :   menyebutkan statemen aksi yang dapat dieksekusi saat statemen aksi lain tidak dieksekusi karena kondisinya tidak terpenuhi.

<!--[if !supportLists]-->3.       <!--[endif]-->Fungsi yang digunakan

Readkey      :   membaca sebuah karakter yang dimasukkan lewat keyboard

<!--[if !supportLists]-->4.       <!--[endif]-->Contoh Program

<!--[if !supportLists]-->a.       <!--[endif]-->Contoh pertama

Program m6c1;

uses wincrt;

type

     anggota = record

         nama   : string[20];

         alamat : string[30];

         jenkel, status : char;

         umur   : byte;

     end;

var

     peserta : anggota;

     tampil  : char;

     stat    : string[15];

     kel     : string[9];

begin

     writeln;

     writeln ('DATA PESERTA');

     writeln;

     write ('Nama : ');

     readln (peserta.nama);

     write ('Alamat : ');

     readln (peserta.alamat);

     write ('Jenis kelamin (L/P) : ');

     readln (peserta.jenkel);

     If (peserta.jenkel = 'L') or (peserta.jenkel = 'l') then

          kel := 'Laki-laki'

     else

          kel := 'Perempuan';

     write ('Umur : ');

     readln (peserta.umur);

     write ('Menikah (Y/T) : ');

     readln (peserta.status);

     If (peserta.status = 'Y') or (peserta.status = 'y') then

          stat := 'Menikah'

     else

          stat := 'Tidak menikah';

     writeln;

     write ('Tampilkan data (Y/T)? ');

     tampil := readkey;

     writeln;

     If (tampil = 'Y') or (tampil = 'y') then

     begin

          writeln;

          writeln('Nama          : ',peserta.nama);

          writeln('Alamat        : ',peserta.alamat);

          writeln('Jenis Kelamin : ',kel);

          writeln('Umur          : ',peserta.umur,' tahun');

          writeln('Status        : ',stat);

     end;

end.

Untuk download artikel lengkapnya silahkan klik disini..download.

Semoga bermanfaat..

Bang-iconk "TM.