array dua dimensi dapat dilakukan dengan:
- perkalian;
- penjumlahan; dan
- penguran.
program matrix;
uses wincrt;
type ary: array [1..10,1..10] of integer;
var
x1,x2: ary;
i,j: integer;
procedure input;
begin
for i:= 1 to 3 do
begin
for j:= 1 to 4 do
begin
write('A[',i,',',j,']=');readln(x1[i,j]);
end;
end;
for i:= 1 to 3 do
begin
for j:= 1 to 4 do
begin
write('B[',i,',',j,']=');readln(x2[i,j]);
end;
end;
end;
procedure jumlah (m1,m2:ary);
var
hasil: ary;
begin
for i:= 1 to 3 do
begin
for j:= 1 to 4 do
begin
hasil[i,j]:= m1[i,j] + m2[i,j];
end;
end;
writeln('hasil penjumlahan matrix');
for i:= 1 to 3 do
begin
for j:= 1 to 4 do
begin
write('hasil[',i,',',j,']=');
writeln(hasil[i,j]);
end;
end;
end;
begin
input;
jumlah(x1,x2);
end.
penjumlahan matrix berprinsip pada penjumlahan suatu nilai yang berada pada baris dan kolom yang sama. ini juga berarti penjumlahan matrix hanya dapat dilakukan pada suatu data /bilangan yang mempunyai index yang sama dalam array.
