matrices multiplicacion
Publicado por carmen (1 intervención) el 24/02/2010 21:17:31
hola tengo problemas pues quiero aplicar en este programa un if aritmetico, ud saben de alguna referencia parecida de este metodo de multiplicacion de matrices MxN
L=0
10 LL=L+1
L=L+5
L=MIN(L,N)
PRINT 20, LABEL,(I,I=LL,L)
20 FORMAT(///,3X,12H LA MATRIZ ,A4,5H ,/,15X,5(10X,I3,6X)//)
DO 30 I=1,M
30 PRINT 40, I,(A(I,J),J=LL,L)
40 FORMAT(I10,5X,5(1X,D18.10))
IF(N-L) 50,50,10
50 RETURN
L=0
10 LL=L+1
L=L+5
L=MIN(L,N)
PRINT 20, LABEL,(I,I=LL,L)
20 FORMAT(///,3X,12H LA MATRIZ ,A4,5H ,/,15X,5(10X,I3,6X)//)
DO 30 I=1,M
30 PRINT 40, I,(A(I,J),J=LL,L)
40 FORMAT(I10,5X,5(1X,D18.10))
IF(N-L) 50,50,10
50 RETURN
Valora esta pregunta
0