Suma por renglon de una matriz
Publicado por Luis Lozano (2 intervenciones) el 18/05/2015 05:16:25
Hola amigos, espero estén muy bien, estoy intentando hacer un programa de una matriz de morosidad me dan una matriz cuadrada y un vector del tamaño del numero de columnas.
Debo pedir la matriz y el vector y después hacer los cálculos que son multiplicar cada renglón por el vector sumando cada elemento, por ejemplo
| 3 4 5 | 3
| 3 9 7 | 8
| 9 2 4 | 2
Respuesta ((3*3)+(8*4)+(5*2)) ((3*3)+(9*8)+(7*2)) ((9*3)+(2*8)+(4*2))
obteniendo así
51
95
51
esto es lo que debe arrojar pero no logro hacer la suma por renglón solo he podido multiplicarlos uno a uno.
Espero alguien me pueda ayudar le dejo el código que hasta ahora tengo, de antemano muchas gracias.
Debo pedir la matriz y el vector y después hacer los cálculos que son multiplicar cada renglón por el vector sumando cada elemento, por ejemplo
| 3 4 5 | 3
| 3 9 7 | 8
| 9 2 4 | 2
Respuesta ((3*3)+(8*4)+(5*2)) ((3*3)+(9*8)+(7*2)) ((9*3)+(2*8)+(4*2))
obteniendo así
51
95
51
esto es lo que debe arrojar pero no logro hacer la suma por renglón solo he podido multiplicarlos uno a uno.
Espero alguien me pueda ayudar le dejo el código que hasta ahora tengo, de antemano muchas gracias.
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
36
37
38
39
n=0m=0DO WHILE n<=0 OR m<=0
n=0 m=0@ 2,2 say "Dame el numero de renglones" get n
READ
@3,2 say "Dame el numero de columnas" get m
READ
ENDDO
DIMENSION a(n,m), b(n,m),c(n,m)
CLEAR
FOR i=1 TO n FOR j=1 TO ma(i,j)=0
@ 2+i,2+30*j say "a("+str(i,2)+","+str(j,2)+")= " get a(i,j)
READ
ENDFOR
ENDFOR
FOR i=1 TO m FOR j=1 TO 1b(i,j)=0
@ 2+n+1+i,2+30 say "b("+str(i,2)+","+str(j,2)+")= " get b(i,j)
READ
ENDFOR
ENDFOR
d=0FOR i=1 TO n FOR j=1 TO md=a(i,j)*b(i,1)
c(i,j)=d
?c(i,j)
ENDFOR
ENDFOR
Valora esta pregunta
0
