Perkalian Matriks

program kalimatriks

kamus
x : array[1..3,1..4] of integer
y : array[1..4,1..3] of integer
hslkli : array[1..4,1..3] of integer
hsl:array[1..4,1..3] of integer
i,j : integer
procedure input_data(output a : array[1..3,1..4] of integer,b : array[1..4,1..3] of integer)
procedure kali(input a : array[1..3,1..4] of integer,b : array[1..4,1..3] of integer;output c : array[1..3,1..4] of integer)

Algoritma
input_data(x[i,j],y[i,j])
kali(x[i,j], y[j,i], hslkali[i,j])
{end of program}

procedure input_data(output a : array[1..3,1..4] of integer,b : array[1..4,1..3] of integer)
{F.S : isi dari variabel a dan b masih kosong}
{I.S : variabel a dan b sudah ada isinya}

kamus lokal

Algoritma
i traversal [1..3] begin
j traversal [1..4] begin
output('Matriks 1 (',i,',',j,' ) : ')
input(a[i,j])
end
end

i traversal [1..4] begin
j traversal [1..3] begin
output('Matriks 2 (',i,',',j,' ) : ')
input(b[i,j])
end
end
{end of procedure}

procedure kali(input a : array[1..3,1..4] of integer,b : array[1..4,1..3] of integer;output c : array[1..3,1..4] of integer)
{F.S : diberikan nilai dari variabel a dan b}
{I.S : didapatkan hasil perkalian a dan b}

kamus lokal

Algoritma
hsl<--0
i traversal [1..4] begin
j traversal [1..3] begin
c[i,j]<--a[i,j] * b[j,i]
hsl[i,j] <-- c[i,j] + hsl[i,j]
output(hsl[i,j])
end
end
{end of procedure}