Suma de Matrices en Fortran: Un Ejercicio de Programación, Apuntes de Programación Lineal

¡Descarga Suma de Matrices en Fortran: Un Ejercicio de Programación y más Apuntes en PDF de Programación Lineal solo en Docsity!

SUMA DE MATRICES:

1. USO DEL IF

2. DO

3. DO WHILE

4. OPERACIONES CON

ARREGLOS

Por: Baltazar Victoria Pablo

Eduardo

CODIGO DEL PROGRAMA

PROGRAM SUMA_DE_MATRICES

IMPLICIT NONE

REAL,DIMENSION(100,100):: a,b,c !MATRIZ DE DIMENSIONES DE n(FILAS) x m(COLUMNAS) INTEGER:: i,n,o !PARA LAS FILAS INTEGER:: j,m,p !PARA LAS COLUMNAS !INSERTANDO LOS DATOS !*****COMO COMIENZO SE ASUMEN QUE LAS MATRICES TIENEN LAS MISMAS DIMENSIONES***** !SECCION DE LECTURA WRITE(,) "ESTE PROGRAMA FUE ELABORADO POR: BALTAZAR VICTORIA PABLO EDUARDO" WRITE(,) WRITE(,) "ESTE PROGRAMA PUEDE:" WRITE(,) WRITE(,) "1. LEER DATOS EN FORMA DE MATRICES" WRITE(,) WRITE(,) "2. REALIZAR OPERACIONES CON MATRICES" WRITE(,) WRITE(,) "***************************INICIO**********************************" WRITE(,) WRITE(,) "PRIMERAMENTE, ES IMPORTANTE ESTABLECER QUE LAS MATRICES A INGRESAR DEBEN DE TENER LAS MISMAS DIMENSIONES," WRITE(,) "SINO ES ASI, EL PROGRAMA ARROJARA UN ERROR, ESPECIFICANDO EL POR QUE DE DICHO ERROR" WRITE(,)

!SECCION DE LA MATRIZ A

DO i=1,n DO j=1,m WRITE(,) "INGRESA EL VALOR DE A(n,m)" READ(,) a(i,j) END DO !TERMINA EL CONTADOR PARA i END DO !FINALIZA EL CONTADOR PARA j WRITE(,) "*************************************" WRITE(,) "LA MATRIZ A ES:" DO i=1,n WRITE(,) (a(i,j),j=1,m) END DO WRITE(,) "*************************************" !SECCION DE LA MATRIZ B DO i=1,n DO j=1,m WRITE(,) "INGRESA EL VALOR DE B(o,p)" READ(,) b(i,j) END DO !TERMINA EL CONTADOR PARA i END DO !FINALIZA EL CONTADOR PARA j

WRITE(,) "*************************************"

WRITE(,) "LA MATRIZ B ES:"

DO i= 1 ,n WRITE(,) (b(i,j),j= 1 ,m) END DO !SECCION DE OPERACIONES DE MATRICES !A+B=C DO i= 1 ,n DO j= 1 ,m c(i,j)=a(i,j)+b(i,j) END DO END DO WRITE(,) "*************************************" WRITE(,) "ESCRIBIENDOLO EN LA FORMA TRADICIONAL" WRITE(,) "*************************************" !IMPRESION DE RESULTADOS WRITE(,) "LA MATRIZ C ES:" DO i= 1 ,n WRITE(,) (c(i,j),j= 1 ,m) END DO !SI NO CUMPLE CON LA DIMENSIONES CORRECTAS, SE IMPRIMIRA UN ERROR ELSE WRITE(,) "************************ATENCION***********************************" WRITE(,) "SE HA DETECTADO UN ERROR EN LAS DIMENSIONES DE LAS MATRICES" WRITE(,) WRITE(,) " 1. RECUERDA QUE SI DOS MATRICES TIENEN DIFERENTE NUMERO DE FILAS Y DE COLUMNAS, NO SE PUEDEN SUMAR O RESTAR" END IF WRITE(,) "ESTE PROGRAMA FUE ELABORADO POR: BALTAZAR VICTORIA PABLO EDUARDO" END PROGRAM SUMA_DE_MATRICES

Corrida del programa para matrices

con dimensiones desiguales:

Diagrama de decisiones: