Hasil belajar saya malam ini mengenai materi array pada pemrogram pascal,
berikut scriptnya
uses crt;
const
max=6;
type
lagu=array[1..max] of string[10];
var
jnslagu:lagu;
i:integer;
begin
for i:=1 to max do
jnslagu[1]:='POP';
jnslagu[2]:='dangdut';
jnslagu[3]:='keroncong';
jnslagu[4]:='rock';
jnslagu[5]:='campursari';
jnslagu[6]:='Pop Punk';
for i:=1 to max do
writeln(i, '. ',jnslagu[i]);
end.
dan outputnya
