Skip to main content

Record (Rekaman) Dalam Pascal

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 (di banding array). Contoh , sebuah record dengan empat buah field.
   • Field 1
   • Field 2
   • Field 3
   • Field 4


Cara pendeklarasian dari record adalah sbb:
• Mendefinisikan tipe dari record (jumlah field, jenis tipe data yang dipakai),
• Mendefinisikan variabel untuk dilakukan operasi.
SYNTAX

   type
   nama_record = record
   identifier_1 : tipe_data_1;
   :
   :
   identifier_n : tipe_data_n;
   end;
   var variabel : nama_record;

Contoh:

   type
   Data_mahasiswa = record
   Nama : string;
   Usia : integer;
   Kota : String;
   Kodepos : integer;
   end;
   Var
   x: Data_mahasiswa;

1. Pengaksesan Elemen Record
Nama variable disertai nama field.

   x.Nama
   x.Usia
   x.Kota
   x.Kodepos

Contoh.

   program RECORD_INTRO;
   type tanggal = record
   bulan, hari, tahun : integer;
   end;
   var waktu : tanggal;
   begin
      waktu.hari :=25;
      waktu.bulan:=09;
      waktu.tahun:= 1983;
      writeln('hari ini adalah ',waktu.hari,':',waktu.bulan,':',           waktu.tahun)
   end.

2. Pengunaan With … do
Pernyataan with untuk lebih menyederhanakan pengaksesan field-field pada record. Pemrograman dapat mengakses field cukup dengan menyebutkan nama field-nya saja. Misalkan pernyataan :

   x.Nama
   x.Usia 
   x.Kota
   x.Kodepos

menjadi:

   with x do
   Begin
   Nama
   Usia 
   Kota
   Kodepos
   end

Contoh.

   program RECORD_INTRO;
   type tanggal = record
   bulan, hari, tahun : integer;
   end;
   var waktu : tanggal;
   begin {program utama}
      with waktu do {mulai with}
      begin
         hari :=25;
         bulan:=09;
         tahun:=1983;
         writeln('hari ini adalah ',hari,':',bulan,':', tahun)
      end {akhir with}
   end.

3. Array dari Record
Suatu array dapat juga berisi record contoh suatu deklarasi record tanggal.

   type tanggal = record
   bulan, hari, tahun : integer;
   end;
   var waktu : tanggal;

kemudian kita membentuk suatu array dari record ini, namakan birthdays.

   var birthdays : array[1..10] of tanggal;

pernyataan ini akan membentuk suatu array dengan 10 elemen. Dimana tiap elemen adalah sebuah record tanggal, yaitu, terdiri atas bulan, hari, tahun dengan tipe data Integer.
Digambarkan seperti berikut:

Contoh Pemberian nilai awal dari masing-masing elemen birthdays:

   Birthdays[1].hari :=25;
   Birthdays[1].bulan:=09;
   Birthdays[1].tahun:=1983;

4. Record di dalam Record
Record bisa berisi record lain sebagai field. Seperti contoh record tanggal dan jam dikombinasikan menjadi sebuah record saat ini,

   type tanggal = record
   bulan, hari, tahun : integer;
   end;
   type waktu =record 
   jam, menit, detik : integer;
   end;
   type waktu_ini =record
   tanggal_ini : tanggal;
   waktu_ini : waktu
   end;

Kemudian kita perlu membuat variabel kerja

   var saat_ini : waktu_ini;

pemberian nilai akan terjadi seperti di bawah ini:

   saat_ini.tanggal.bulan:= 11;
   saat_ini.tanggal.hari:= 2;
   saat_ini.tanggal.tahun:= 1985;
   saat_ini.waktu.jam:= 3;
   saat_ini.waktu.menit:= 3;
   saat_ini.waktu.detik:= 33;

 SEKIAN.......
Labels:
Location: Makassar, Sulawesi Selatan, Indonesia

Comments

Post a Comment

Popular posts from this blog

Pemakaian Gotoxy Pada Program Pascal

Suatu informasi yang terdapat dilayar monitor tentu harus enak dilihat dan rapi. Jika melihat hasil program Menampilkan Lebih 1 Record Pada Pascal kurang menarik, hasilnya masih berantakan. Bagaimana membuat tampilan menjadi lebih tersusun? Untuk menyelesaikan hal ini, kita wajib menggunakan gotoxy. Gotoxy digunakan untuk menuju ke suatu koordinat tertentu pada layar monitor. Dengan menggunakan gotoxy, maka tampilan di layar akan lebih tersusun/rapi, sehingga lebih enak dilihat. Berikut pemakaian gotoxy pada program pascal. uses crt ; type     mahasiswa = record ;     nim    : string[8] ;     nama   : string[30] ;     jenjang: string[2] ;     prodi  : string[30] ;     Nilai  : byte ;     end; var    recMhs : array[1..30] of mahasiswa ;    ket    : string[10];    i      : byte ; Begin    ...
Post a Comment
Baca selengkapnya....

Pemrograman Dasar Komputer Dengan Pascal

Pada bagian Pemrograman dasar pascal, kita akan membahas Contoh Program Komputer tentang perhitungan matematika dasar.  Dalam perhitungan matematika, kita menggunakan operator aritmatika sebagai berikut : Penjelasan : Operator tanda kurung adalah priorotas pertama, artinya bagian yang berada dalam tanda kurang akan dikerjalan pertama kali, kemudian diikuti oleh operator dengan prioritas kedua yaitu kali dan bagi (*dan /), kemudan tambah dan kurang . Dalam  perhitungan matematika, tanda sama dengan menggunakan tanda  := (titik dua sama dengan) untuk menyatakan nilai.  Operator Div digunakan untuk membagi 2 bilangan  bulat (integer) kemudian mengambil  hasil bagi dan sisanya dibuang. Sedangkan operator Mod digunakan untuk membagi 2 bilangan bulat (integer) kemudian mengambil sisanya dan hasil baginya dibuang.  Misalnya : 7 dibagi 2. Hasil baginya 3 dan sisanya 1.  X:= 7 div 2, hasilnya 3 X:= 7 mod 2, hasilnya 1 Tipe Data...
Post a Comment
Baca selengkapnya....

Latihan Dan Soal Perulangan Pascal (Bagian 3)

Sebelumnya saya sudah posting mengenai Latihan Dan Soal Perulangan Pascal (Bagian 2) Kali ini saya akan menlanjutkan beberapa latihan - latihan lagi. Langsung saja berikut latihan-latihannya : Buatlah Program dengan 3 moodel perulangan(Repeat-Until, While, dan For untuk permasalahan deret ukur 3, 9, 23, ...... jawab : PERULANGAN REPEAT-UNTIL     uses crt;    var      i,p,nilai   : integer;    begin      clrscr;      writeln(' PERULANGAN REPEAT-UNTIL ');      writeln('-------------------------');      writeln;      write('Masukkan Jumlah Deret = ');readln(p);      writeln;      nilai   :=3;      i       :=1;      repeat      begin           write(nilai:5);           i    ...
Post a Comment
Baca selengkapnya....