PROGRAM DETERMINANTES
REAL,ALLOCATABLE,DIMENSION(:,:)::M
REAL::DET
INTEGER::N
PRINT*,"INGRESE EL RANGO DE LA MATRIZ(RANGO 2 O 3)"
READ(*,*)N
IF (N/=2.AND.N/=3)THEN
PRINT*,"USTED INGRESO UN RANGO INCORRECTO"
GO TO 14
ELSE
END IF
ALLOCATE(M(N,N))
DO I=1,N,1
DO J=1,N,1
PRINT*,"INGRESE POSICION. FILA",I," COLUMNA",J
READ(*,*)M(I,J)
END DO
END DO
PRINT*,"LA MATRIZ INGRESADA ES"
DO I=1,N,1
WRITE(*,*)M(I,:)
END DO
DETERMINANTE:SELECT CASE(N)
CASE(2)
DET=M(1,1)*M(2,2)-M(2,1)*M(1,2)
PRINT*,"EL DETERMINANTE DE LA MATRIZ INGRESADA ES:"
PRINT*,DET
CASE(3)
DET=M(1,1)*(M(2,2)*M(3,3)-M(3,2)*M(2,3))-M(1,2)*(M(2,1)*M(3,3)-M(3,1)*M(2,3))+M(1,3)*(M(2,1)*M(3,2)-M(3,1)*M(2,2))
PRINT*,"EL DETERMINANTE DE LA MATRIZ INGRESADA ES:"
PRINT*,DET
END SELECT DETERMINANTE
14 END PROGRAM DETERMINANTES
Crear cuenta
Comentarios sobre la versión: 1 (0)
No hay comentarios