-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathprodutoMatrizes.mlq
35 lines (29 loc) · 956 Bytes
/
produtoMatrizes.mlq
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
trampo principal() {
mano, inteiro m eh 3, n eh 4, p eh 10;
mano, inteiro i, j, k;
mano, inteiro m1[3][4], m2[4][10], m3[3][10];
roleh ( i eh 0 ; i < m ; i eh i + 1) seLiga
roleh ( j eh 0; j < n; j eh j + 1) seLiga
m1[i][j] eh i + j;
daOPapo "Matriz 1: Valor da posicao (" + i + "," + j + ")" + ": "+ m1[i][j];
sacou?
sacou?
daOPapo "\n";
roleh ( i eh 0 ; i < n ; i eh i + 1) seLiga
roleh ( j eh 0; j < p; j eh j + 1) seLiga
m2[i][j] eh i - j;
daOPapo "Matriz 2: Valor da posicao (" + i + "," + j + ")" + ": "+ m2[i][j];
sacou?
sacou?
daOPapo "\n";
roleh ( i eh 0; i < m; i eh i + 1) seLiga
roleh ( j eh 0; j < p; j eh j + 1) seLiga
m3[i][j] eh 0;
roleh (k eh 0; k < n; k eh k + 1) seLiga
m3[i][j] eh m3[i][j] + (m1[i][k]*m2[k][j]);
sacou?
daOPapo "Matriz 3: Valor da posicao (" + i + "," + j + "): " + m3[i][j] ;
sacou?
sacou?
daOPapo "\n";
}