Tipe Bentukan Record Pada Pascal #42

andrypein.net : Power Ranger berjumlah 5, tommy awalnya ranger hijau, dia jahat, lalu dia tobat menjadi baik dan menjadi ranger putih sehingga anggota power ranger berjumlah 6.

Nah kali ini kita akan melanjutkan yang kemarin yang mengenai deklarasi tipe bentukan di pascal dan jenis-jenisnya, sekarang yang akan kita bahas adalah mengenai tipe bentukan record.

Record adalah tipe data yang tersusun atas beberapa variabel yang berbeda (atau sama) tipe datanya. variable yang terdapat dalam suatu record bisa disebut ‘field’ atau ‘member’ (anggota dari record).

nah ini adalah bentuk umumnya:

NamaRecord = Record
  nama_field1 : tipe_data;
  nama_field2 : tipe_data;
  ...

nah setelah didefinisikan,tipe rekaman ini dapat langsung digunakan untuk mendeklarasikan variabel seperti halnya tipe dasar lainnya.

ini adalah contohnya supaya lebih memahami.

{Mendefinisikan tipe Record dengan nama TSiswa}
type
 TSiswa = Record
  NIM : string[8];
  Nama : string[25];
  umur : integer;
end;
{menggunakan tipe TSiswa untuk mendeklarasikan var}
Var 
  S:TSiswa;{variabel S bertipe TSiswa}  

Selanjutnya Untuk mengakses field dari record diatas kita menggunakan operator titik (.). berikut ini contohnya:

{Mengisikan nilai kedalam variabel S yg bertipe TSiswa}  
S.NIM :='GH58S9S';
S.Nama :='Andry Fadrie Kuswandani';
S.Umur :=17;

Namun untuk menghindari pengulangan dalam penulisan kode,maka pascal memberikan kemudahan kembali dengan menghadirkan statemen with, sehingga kode diatas menjadi seperti ini :

with S do begin
  NIM:='GH58S9S';
  Nama:='Andry Fadrie Kuswandani';
  Umur:17;
end;

Nah sekarang saya kasih contoh programnya, untuk lebih memahami lagi tentunya.

program TipeRecord;
uses wincrt;
type
 TSiswa = Record
  NIM : string[8];
  Nama : string[25];
  umur : integer;
end;

Var 
  S:TSiswa;
begin
  {membaca data dari keyboard dan memasukannya nilainya
   ke dalam variabel S}
  writeln('Isikan Informasi mengenai diri anda');
  write('NIM : ');readln(S.NIM);
  write('Nama : '):readln(S.Nama);
  write('Umur : ');readln(S.Umur);
  writeln;
  {Menampilkan data yang telah dimasukan}
  writeln('Berikut informasi anda');
  writeln('NIM : ', S.NIM);
  writeln('Nama : ', S.Nama);
  writeln('Umur : ', S.Umur);
end.

Compile and run dan semoga bermanfaat.

Sekian artikel tipe bentukan record ini semoga bermanfaat

*AFK