You are here

Program 7 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.

Regards,

dj