Penjumlahan Dua matriks

program penjumlahan_matrik;

uses crt;

const
j_baris=2;
j_kolom=2;

var
a,b,c : array[1..j_baris,1..j_kolom] of integer;
baris, kolom : integer;

begin
clrscr;
color_background(white);
textcolor(blue);
writeln(’Penetapan nilai matrik A’);
for baris:=1 to j_baris do
for kolom:=1 to j_kolom do begin
write(’Baris ke-’,baris,’ Kolom ke-’,kolom,’:');
readln(A[baris,kolom]);
end;

textcolor(red);
writeln(’Penetapan nilai matrik B’);
for baris:=1 to j_baris do
for kolom:=1 to j_kolom do begin
write(’Baris ke-’,baris,’ Kolom ke-’,kolom,’:');
readln(B[baris,kolom]);
end;

textcolor(green+blink);
writeln(’Perhitungan sedang dilakukan’);
for baris:=1 to j_baris do
for kolom:=1 to j_kolom do begin
C[baris,kolom]:= A[baris,kolom]+B[baris,kolom];
end;

textcolor(yellow);
writeln(’Nilai matrik C’);
for baris:=1 to j_baris do begin
for kolom:=1 to j_kolom do
write(C[baris,kolom]);
writeln;
end;
readln;
end.

Share :