RECORD

RECORD

        Tipe data record adalah tipe data khusus yang komponennya terdiri dari berbagai jenis tipe data lain. Record juga mirip dengan array, dimana kita bisa membuat sebuah variabel yang berisi berbagai element. Perbedaannya, record bisa menampung berbagai jenis tipe data, tidak hanya 1 tipe data seperti array. Record adalah jenis tipe data terstruktur yang berisi beberapa data, yang masing-masing dapat berlainan tipe termasuk bertipe array. Masing-masing data tersebut disebut sebagai field. Dalam Record terdapat sebuah pernyataan yaitu menggunakan statemen With… do. Pernyataan With… do untuk mempermudah pengetikan dan mengurangi kesalahan dalam penggunaan tipe data record. Penggunaan statemen With… do mengakibatkan field-field yang terletak pada bagian statemen dapat dituliskan tanpa perlu menyatakan lagi nama record dan tanda titik.

Tipe data record dideklarasikan dengan bentuk sebagai berikut :

Record
      Data_field_1 : tipe_1 ;
      Data_field_2 : tipe_2 ;
      .................
      Data_field_n : tipe_n ; 
End; 

Contoh : 

Program Record_1 ;

Uses Wincrt ;

Type Barang = record

           Harga : String [12] ;

           Nama  : String [20] ;

           End ;

Var data : barang ;

Begin

Write ('Harga:'); Readln (data.harga);

Write ('Nama:') ; Readln (data.nama) ;

Writeln ;

Writeln ('Harga:',data.Harga);

Writeln ('Nama:',data.Nama) ;

End.

Output :

 2. Statemen Pernyataan With..do

 Tujuannya adalah untuk mempermudah pengetikan dan mengurangi kesalahan dalam penggunaan tipe record. Bentuk pernyataan with..do adalah sebagai berikut :

    With nama_record Do 

          Statemen ;

 Contoh :

     Program Record_2 ;

     Uses Wincrt ;

     Type Barang = record

           Harga : String [12] ;

           Nama  : String [20] ;

                 End;

     Var data : barang ;

     Begin

     With data do

       Begin

       Write ('Harga:') ; Readln (Harga) ;

       Write ('Nama Barang:') ; Readln(Nama) ;

       End;

     Writeln ;

     Writeln ;

     Writeln ('Harga: ',data.Harga) ;

     Writeln ('Nama : ',data.Nama) ;

     End.

  Output :