record

Record
Kumpulan elemen-elemen data yang digabungkan menjadi satu kesatuan. Masing-masing elemen data tersebut dikenal dengan sebutan field. Field data tersebut memiliki data yang sama atapun berbeda.

Field-field tersebut digabungkan menjadi satu dengan tujuan untuk memudahkan. Misalnya ingin mencatat data-data pegawai atau mahasiswa atau pelajar dalam sebuah program. Record mahasiswa terdiri dari field-field NIM,Nama, alamat,IPK.Record Pelajar terdiri dari field-field nama, nomorurut,alamat,jumlahnilai.

Bentuk umum:
    type
    <namarecord>=record
                <datafield1>:<tipe1>;
                <datafield2>:<tipe2>;
End;
Contoh:
    type     mahasiswa = record
            Nim : string[10];
            nama:string[20];
            alamat:string[30];
            IPK : real;
    end;
    var
        mhs:mahasiswa;           
       

Untuk lebih jelasnya saya akan menampilkan contoh sederhana scrtip program penggunaan record dalam pascal yang mana untuk menampilkan table biodata.

program record;
uses wincrt;
type
    isi=record
              nama:string[30];
              nip:string[10];
              umur:integer;
     end;
var data:array[1..10] of isi;
   k,l:integer;
    m,n:byte;
   ulang:char;

begin
k:=0;
while ulang<>'t' do
      begin
      k:=k+1;

writeln('       form identitas ');
writeln('       ============== ');
      write('Nama : ');readln(data[k].nama);
      write('Nip : ');readln(data[k].nip);
      write('Umur : ');readln(data[k].umur);
      writeln;writeln;
      write('ulangi! y/t: ');readln(ulang);
       clrscr;
      end;
gotoxy(10,1);writeln('TABEL BIODATA');
gotoxy(1,2);write('+==========+=======+========+');
gotoxy(1,3);write('| Nama');
gotoxy(12,3);write('| NIP');
gotoxy(20,3);write('| Umur');
gotoxy(29,3);write('|');
gotoxy(1,4);write('+==========+=======+========+');
for l:=1 to k do
begin
gotoxy(1,4+l);write('| ',data[l].nama);
gotoxy(12,4+l);write('| ',data[l].nip);
gotoxy(20,4+l);write('| ',data[l].umur);
gotoxy(29,4+l);write('|');
end;
gotoxy(1,5+l);write('===========+=======+========+');
end.

bentuk run: