Membuat Program Penjumlahan Matriks

program penjumlahan_matriks;
uses wincrt;
var
matriks1,matriks2,matriks3 :array[1..4,1..4] of integer;
i,j:integer;
begin
writeln(' ============================================= ');
writeln(' Penjumlahan MATRIKS ');
writeln(' ============================================= ');
begin
writeln(' Matriks I ');
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
write(' Elemen (',i,',',j ,') = ');readln(matriks1[i,j]);
end;
writeln;
end;
end;
begin
writeln;
writeln(' Matriks I ');
writeln;
for i:= 1 to 4 do
begin
for j:= 1 to 4 do
begin
write(matriks1[i,j]:7);
end;
writeln;
writeln;
end;
writeln;
writeln;
end;
begin
writeln(' Matriks II ');
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
write(' Elemen (',i,',',j ,') = ');readln(matriks2[i,j]);
end;
writeln;
end;
readln;
end;
begin
writeln;
writeln(' Matriks II ');
writeln;
for i:= 1 to 4 do
begin
for j:= 1 to 4 do
begin
write(matriks2[i,j]:7);
end;
writeln;
writeln;
end;
writeln;
writeln;
readln;
end;
begin
writeln(' Hasil penjumlahan matriks tersebut');
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
matriks3[i,j]:=matriks1[i,j]+matriks2[i,j];
write(' ELemen (',i,',',j ,') = ',matriks3[i,j]);
end;
writeln;
end;
end;
begin
writeln;
writeln(' Matriks Hasil ');
writeln;
for i:= 1 to 4 do
begin
for j:= 1 to 4 do
begin
write(matriks3[i,j]:7);
end;
writeln;
writeln;
end;
writeln;
writeln;
end;
writeln(' ============================================= ');
writeln(' SELESAI ');
writeln(' ============================================= ');
end.

Membuat Program Perkalian Matriks

program Perkalian_Matriks;
uses wincrt;
var
a,b,c:array[1..4,1..4] of integer;
i,j,x,y:integer;
begin
clrscr;
begin
writeln(' Matriks I ');
for i:= 1 to 4 do
begin
for j:= 1 to 4 do
begin
write(' Masukkan bilangan untuk baris ke-',i,' kolom ke-',j,': '); readln(a[i,j]);
end;
writeln;
end;
end;
begin
writeln;
writeln(' Matriks I ');
writeln;
for i:= 1 to 4 do
begin
for j:= 1 to 4 do
begin
write(a[i,j]:7);
end;
writeln;
writeln;
end;
writeln;
writeln;
end;
begin
writeln(' Matriks II ');
for x:= 1 to 4 do
begin
for y:=1 to 4 do
begin
write(' Masukkan bilangan untuk baris ke-',x,' kolom ke ',y,': '); readln(b[x,y]);
end;
writeln;
end;
end;
begin
writeln;
writeln(' Matriks II ');
writeln;
for x:= 1 to 4 do
begin
for y:= 1 to 4 do
begin
write(b[x,y]:7);
end;
writeln;
writeln;
end;
writeln;
writeln;
end;
begin
writeln(' Tekan Enter Untuk Melihat Hasil Operasi dari Matriks I X Matriks II ');readln;
writeln(' M I x M II ');
writeln;
for i:=1 to 4 do
begin
for y:=1 to 4 do
begin
c[i,y]:=0;
for x:=1 to 4 do
begin
c[i,y]:=c[i,y]+a[i,x]*b[x,y];
write(' Elemen ke (',i,',',y,') = ',c[i,y]);
end;
end;
writeln;
end;
end;
writeln;
begin
writeln(' Matriks Hasil ');
writeln;
for i:=1 to 4 do
begin
for y:=1 to 4 do
write(c[i,y]:7);
writeln;
writeln;
end;
writeln;
writeln;
end;
writeln;
readln;
end.