PASCAL

Record adalah sebuah sebuah bentuk yang dapat menampung variabel yang berbeda. sedangkan array adalah berfungsi untuk menampung data dengan index yang ada, sehingga cukup 1 variabel yang digunakan.
record dan array dapat digabungkan sebagai berikut

program record&array;
uses crt;
type
    Thiphop = record
            nama : string[20];
            alamat : string[30];
            Nick   : string[10];
            end;
var i:byte;
hiphoper :array[1..6] of Thiphop;
begin
writeln('inputkan kosong / enter untuk selesai');
for i := 1 to 2 do
begin
write('input nama : ');readln(hiphoper[i].nama);
write('input alamat : ');readln(hiphoper[i].alamat);
write('input nick : ');readln(hiphoper[i].nick);
end;
readkey;
for i := 1 to 2 do
begin
writeln(hiphoper[i].nama  );
writeln(hiphoper[i].alamat  );
writeln(hiphoper[i].nick);

end;
READKEY;
end.