Kamus :
type :
table : array [1..25,1..25] of integer
var
A,B,C : byte
M,N,O : byte
I,J,K : byte
algo
{
Read (M,N,O)
input data matriks A
{
For i <-- 1 to M do
{
For j <-- 1 to N do Read (A[i,j]) } input data matriks B
For i <-- 1 to N do
{
For j <-- 1 to O do Read (B[i,j]) } Perkalian Matriks
For i <-- 1 to M do
{
For j <-- 1 to N do
{
For K <-- 1 to O do
writeln ( C [i,j]) <-- C[i,j] + A[i,k]*B[k,j]
}
}
