Ilmu Komputer

Listing program matrik :

Uses crt;
Var
matrikA,matrikB,matrikC:array [1..2,1..2]of byte;
I,j:byte;
Begin
Clrscr;
For i:=1 to 2 do
For j:=1 to 2 do
Begin
Write(‘matrikA’,I,’,’,j,’=’);
Readln(matrikA[i,j]);
End;
Writeln;
For i:=1 to 2 do
For j:=1 to 2 do
Begin
Write(‘matrikB’,i,’,’,j,’=’);
Readln(matrikB[i,j];
End;
For i:= 1 to 2 do
For j:= 1 to 2 do
Begin
matrikC[i,j]:=matrikA[i,j]+matrikB[i,j];
writeln;
end;
clrscr;
written;
writeln(‘matrikA adalah=’);
for i:= 1 to 2 do begin
for j:= 1 to 2 do
write(matrikA[i,j]:5);
writeln;
end;
writeln(‘matrikB adalah=’);
for i:= 1 to 2 do begin
for j:= 1 to 2 do
write(matrikB[i,j]:5);
writeln;
end;
writeln;
writeln(‘matrikA + matrikB=matrikC’);
for i:= 1 to 2 do begin
for j:= 1 to 2 do
write(matrikC[i,j]:5);
writeln;
end;
readln;
end.

output program :