program penjumlahan_matrik;
uses crt;
var matrik1,matrik2,hasil : array[1..3,1..3] of integer;
i,j : integer;
begin
clrscr;
writeln('input elemen matrik satu');
for i:= 1 to 3 do
begin
for j:= 1 to 3 do
begin
write('elemen baris ',i,' kolom ',j,'= ');
readln(matrik1[i,j]);
end;
end;
writeln('input elemen matrik dua');
for i:= 1 to 3 do
begin
for j:= 1 to 3 do
begin
write('elemen baris ',i,' kolom ',j,'= ');
readln(matrik2[i,j]);
end;
end;
for i:= 1 to 3 do
begin
for j:= 1 to 3 do
begin
hasil[i,j]:=matrik1[i,j]+matrik2[i,j];
end;
end;
for i:= 1 to 3 do
begin
for j:= 1 to 3 do
begin
write(hasil[i,j]:9);
end;
writeln;
end;
readln;
end.
0 comments:
Posting Komentar
Terima kasih atas komentar atau sarannya.
Makasih ya udah komentar | Kembali ke atas