Page 142 - BAHAN_BACAAN_ALGORITMA_DAN_PEMOGRAMAN
P. 142

nama  record  yang  akan  diakses.  Di  antara  nama  record  dan  nama

                   variabel anggota dipisahkan tanda titik (.).
                   Pendeklarasian record :

                          Type
                                  Nama_record = record
                                         Field1: tipe data1 ;
                                         Field2: tipe data2 ;
                                         …………………
                                         …………………
                                         Fieldn: tipe datan ;
                                 End ;

                   Contoh :
                          Type  Barang = record
                                         Nama          : string[20] ;
                                         Jenis  : string [20]
                                         Jumlah        : integer ;
                                 End ;

                   Memasukkan data ke dalam record :


                          Untuk  memberikan  nilai  dari  masing-masing  field  maka  kita

                   harus menuliskan
                   Nama_record.field := (nilainya);

                   Misalkan  :  dari  contoh  diatas  kita  akan  mengisikan  nama  barang

                   dengan  Piring,  jenis  barang  yaitu  barang  pecah  belah  dan  jumlah
                   barang 3 lusin maka kita harus menuliskan pada program utama



                                 Barang.Nama := ‘Piring’ ;
                                 Barang.Jenis   := ‘Pecah belah’ ;

                                 Barang.Jumlah:=  36 ;


                   Nilai-nilai  dari  field  ini  akan  disimpan  dalam  record.  Untuk  melihat

                   apakah  benar  data  yang  dimasukkan  telah  tersimpan  dalah  ecord

                   maka pada var kita deklarasikan suatu variable misal :
                                         X  :  array[1..n]  of    Nama_record  ;  dari  soal  di  atas

                   yaitu

                                         X : array[1..n] of Barang ;
   137   138   139   140   141   142   143   144   145   146   147