pendekklarasian array mudah bila kita mengerti maksud nya
berikut contoh program array:
bila gambar kurang jelas, copas scrip berikut :
program up_to_you;
uses crt;
const
semester =3;
nama =4;
n=100;
type
nilai=array[1..semester,1..nama] of integer;
var
a,b:integer;
angka:nilai;
mahas:array[1..n] of string;
begin
for a:=1 to nama do
begin
write('nama_mhs :');
readln(mahas[a]);
for b:= 1 to semester do
begin
write('semester',b,'=');
readln(angka[b,a]);
end;
end;
clrscr;
writeln('masukkan data ');
writeln(' nama semester1 semester 2 semester3');
for a:=1 to nama do
begin
write(mahas[a]:6);
for b:=1 to semester do
write(angka[b,a]:10);
writeln;
end;
end.
// saya memakai system operasi dos jadi saya memakai uses crt ;,, jika kalian memakai windows bisa di ganti dengan uses wincrt ;
selamat mencoba di run kan kawan :
