Program toko (record dengan array)

Pada tutorial 5 telah dijelaskan cara penggunaan array dan record. Sekarang kita akan menggabungkan array dan record tersebut. Perhatikan program di bawah ini:

  1: Program Array_dan_Record;

  2: type dmhs=record

  3:   nrp:string[10];

  4:   nama:string[25];

  5:   alamat:string[50];

  6: end;

  7: var data:array[1..3] of dmhs;

  8:     i:integer;

  9: begin

10:   for i:=1 to 3 do

11:     begin

12:       write('nrp : ');readln(data[i].nrp);

13:       write('nama : ');readln(data[i].nama);

14:       write('alamat : ');readln(data[i].alamat);

15:     end;

16:   writeln;

17:   writeln('Data ditampilkan');

18:   for i:=1 to 3 do

19:     begin

20:       writeln('nrp : ', data[i].nrp);

21:       writeln('nama : ', data[i].nama);

22:       writeln('alamat : ', data[i].alamat);

23:     end;

24:   readln;

25: end.

Di dalam program tersebut dideklarasikan bahwa dmhs (data mahasiswa) itu adalah record yang mempunyai field nrp, nama dan alamat (lihat baris 2 sampai 6). Selanjutnya variabel data dideklarasikan bertipe dmhs yang berbentuk array (baris ke 7). Kemudian seperti biasa untuk memasukkan data ke field digunakan "readln(data[i].nrp)", dst (baris 10 sampai 15). Untuk menampilkannya bisa dilihat dibaris ke 18 sampai 23.