Record Dalam Array

Dalam Contoh Sebelunya Penggunan Tipe Data Record Hanya Dapat Menyimpan Satu Record. Untuk Dapat Menyimpan Sejumlah Record Maka Dapat Digunakan Array Yang Bertipe Record Yang Sudah Didifinisikan.

Untuk Itu Dapat Dilihat Listing Program Berikut.

Contoh :

program contoh_record_dalam_array; 
uses crt;
type
    data_pegawai = record
        kd_peg : string[5]; 
        nama : string[15]; 
        alamat : string[20]; 
        gaji : longint; 
    end;
var 
pegawai : array[1..10] of data_pegawai; 
i : integer;
begin
    clrscr;
    for I:= 1 to 10 do
    begin
    with pegawai[i] do
        begin
            writeln('Record ke- ',i);
            write('Kode pegawai =');readln(kd_peg); 
            write('Nama pegawai =');readln(nama); 
            write('Alamat pegawai =');readln(alamat); 
            write('Gaji pegawai =');readln(gaji); 
            writeln;
        end;
    end;
    {cetak}
    writeln('Kode pegawai Nama Alamat Gaji');
    for i:= 1 to 10 do
        begin
            with pegawai[i] do
                begin 
                    write(kd_peg:5); 
                    write(nama:15); 
                    write(alamat:20); 
                    writeln(gaji:10); 
                end;
        end; 
        writeln('-----------------------------------------');
    readln; 
end.