matrixxxx [tugs prokomp]

Program matriks
Kamus :
P : array [1..10,1..10] of integer
Q : array [1..10,1..10] of integer
R : array [1..10,1..10] of integer
I, j, pil : integer
Procedure jumlah
Procedure Kurang
Procedure kali

Algoritma :
Input (n)
i traversal [1..n]
j traversal [1..n]
input (P[i,j])
i traversal [1..n]
j traversal [1..n]
input (Q[i,j])

output (‘1.penjumlahan 2.pengurangan 3. Perkalian’)
input (pil)
depend (pil) on
1 : jumlah
2 : Kurang
3 : kali

i traversal [1..n]
j traversal [1..n]
output (C[i,j])

procedure jumlah
kamus :
algoritma :
i traversal [1..n]
j traversal [1..n]
R [i,j] <- P[i,j] + Q[i,j]

Procedure Kurang
Kamus :
Algoritma :
i traversal [1..n]
j traversal [1..n]
R [i,j] <- P[i,j] - Q[i,j]

Procedure kali
Kamus :
Z, smntr : integer
Algoritma :
Smntr <- 0
i traversal [1..n]
j traversal [1..n]
z traversal [1..n]
smntr <- smntr + P[i,z] * Q[z,j]
R[i,j] <- smntr