Algoritma Penjumlahan matriks

Deklarasi

Procedure input_matriksA (A: array[1…5][1…5] of integer, x:integer , y:integer)
I,j :integer
For  I 1 to x  do
For j  1 to y do
Read(A[I,j])
Endfor
Endfor
For I  1 to x do
For I  1 to y do
Write(A[I,j])
Endfor
Endfor

Procedure input_matriksB (B: array[1…5][1…5] of integer, m:integer , n:integer)
I,j :integer
For  I 1 to m  do
For j  1 to n do
Read(B[I,j])
Endfor
Endfor
For I  1 to m do
For I  1 to n do
Write(B[I,j])
Endfor
Endfor

Fuction tambah(A:array[1…5] of integer, B:array[1…5] of integer ,x,y,m,n : integer) integer
Deklarasi
I,j :integer
C :array[1…5] of integer
ALGORITMA
If  (x=m)  AND (y=n) then
For  I   1 to x do
For j  1 to y do
C[I,j] = A[I,j] + B[I,j]
Endfor
Endfor
For I  1 to x do
For j  1 to y do
Write(C[I,j])
Endfor
Endfor
Else
Write(‘ ‘)
endif
Return C[I,j]
//PROGRAM UTAMA
DEKLARASI
X,y,m,n : integer

A:array[1…5] of integer
B:array[1…5] ofinteger
Read(x,y,m,n)
Input_matriksA(A,x,y)
Input_matriksA(B,x,y)
Tambah(A,B,x,y,m,n)