F90: DO implicito

From AdonaiMedrado.Pro.Br
Jump to: navigation, search
PROGRAM aula
	IMPLICIT NONE
	REAL :: Matriz(5,5), Resultado(5,5), Multiplicador
	INTEGER :: i = 0, j = 0
 
	DO i = 1, 5
		DO j = 1, 5
			WRITE (*,"(A,I1,A,I1,A)") "Digite o elemento inteiro a(",i,",",j,")"
			READ (*,*) Matriz(i, j)
		END DO
	END DO
 
	WRITE (*,*) "Digite um multiplicador"
	READ (*,*) Multiplicador
 
	DO i = 1, 5
		DO j = 1, 5			
			Resultado(i, j) = Matriz(i, j) * Multiplicador
		END DO
	END DO
 
	WRITE (*,*) "Entrada"
	DO i = 1, 5
		WRITE (*,"(5(F6.2))") (Matriz(i,j),j=1,5,1)
	END DO
 
	WRITE (*,*) "Resultado"
	DO i = 1, 5
		WRITE (*,"(5(F6.2))") (Resultado(i,j),j=1,5,1)
	END DO
END PROGRAM aula