Penggunaan array pada penjumlah matrik

program jumlah2x2;

uses wincrt;

type Matrix=Array[1..2,1..2] of shortint;

var
x,y,Det,A,B,C,D,E,F,G,H                 : shortint;
AA,BB,CC,DD                             : shortint;
jawab                                           : char;

begin
repeat
clrscr;

writeln(‘Matrix A’);

for x:=1 to 1 do
begin
for y:=1 to 1 do
begin
GOTOXY(1,2);readln(A);
GOTOXY(5,2);readln(B);
GOTOXY(1,3);readln(C);
GOTOXY(5,3);readln(D);

end;
end;

writeln;
writeln;

Gotoxy(30,1);writeln(‘Matrix B’);

for x:=1 to 1 do
begin
for y:=1 to 1 do
begin
gotoxy(30,2);readln(E);
gotoxy(34,2);readln(F);
gotoxy(30,3);readln(G);
gotoxy(34,3);readln(H);

end;
end;

writeln;
writeln;

writeln(‘Hasilnya’);

AA:=A+E;
BB:=B+F;
CC:=C+G;
DD:=D+H;

writeln(‘Matrix ke 1 = ‘,AA);
writeln(‘Matrix ke 2 = ‘,BB);
writeln(‘Matrix ke 3 = ‘,CC);
writeln(‘Matrix ke 4 = ‘,DD);

writeln;
writeln;
write(‘Ulang [Y/T] :’);readln(jawab);
until upcase(jawab)<>’Y’;
end.
————————————————————————————
uses wincrt;

type matriks=array[1..2,1..2] of byte;

var i,j : integer;

matrik_a:matriks;
matrik_b:matriks;
matrik_c:matriks;

begin
for i := 1 to 2 do
begin
for j:= 1 to 2 do
begin
write(‘Matriks A ‘,i,’.’,j,’=’);readln(matrik_a[i,j]);
end;
end;

writeln(”);

for i := 1 to 2 do
begin
for j:= 1 to 2 do
begin
write(‘Matriks B ‘,i,’.’,j,’=’);readln(matrik_b[i,j]);
end;
end;

for j:= 1 to 2 do
begin
write(‘Matriks B ‘,i,’.’,j,’=’);readln(matrik_b[i,j]);
end;
end;

end.
————————————————————————————–
program Penjumlahan_matrik3X3;
uses wincrt;

type matriks=array[1..2,1..2] of byte;

var i,j : integer;

matrik_a:matriks;
matrik_b:matriks;
matrik_c:matriks;

begin
for i := 1 to 2 do
begin
for j:= 1 to 2
do
begin
write(‘Matriks A ‘,i,’.’,j,’=’);readln(matrik_a[i,j]);
end;
end;

writeln(”);

for i := 1 to 3 do
begin
for j:= 1 to 3 do
begin
write(‘Matriks B ‘,i,’.’,j,’=’);readln(matrik_b[i,j]);
end;
end;

for i := 1 to 3 do
begin
for j:= 1 to 3 do
begin
matrik_c[i,j]:=matrik_a[i,j]+matrik_b[i,j];
writeln(matrik_c[i,j]);
end;
end;

end.