https://adonaimedrado.pro.br/wiki/index.php?action=history&feed=atom&title=F90%3A_DO_implicito
F90: DO implicito - Revision history
2026-05-27T16:08:37Z
Revision history for this page on the wiki
MediaWiki 1.26.2
https://adonaimedrado.pro.br/wiki/index.php?title=F90:_DO_implicito&diff=599&oldid=prev
Adonaimedrado: New page: <code lang="fortran"> 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)") "Di...
2008-10-04T13:04:31Z
<p>New page: <code lang="fortran"> 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)") "Di...</p>
<p><b>New page</b></p><div><code lang="fortran"><br />
PROGRAM aula<br />
IMPLICIT NONE<br />
REAL :: Matriz(5,5), Resultado(5,5), Multiplicador<br />
INTEGER :: i = 0, j = 0<br />
<br />
DO i = 1, 5<br />
DO j = 1, 5<br />
WRITE (*,"(A,I1,A,I1,A)") "Digite o elemento inteiro a(",i,",",j,")"<br />
READ (*,*) Matriz(i, j)<br />
END DO<br />
END DO<br />
<br />
WRITE (*,*) "Digite um multiplicador"<br />
READ (*,*) Multiplicador<br />
<br />
DO i = 1, 5<br />
DO j = 1, 5 <br />
Resultado(i, j) = Matriz(i, j) * Multiplicador<br />
END DO<br />
END DO<br />
<br />
WRITE (*,*) "Entrada"<br />
DO i = 1, 5<br />
WRITE (*,"(5(F6.2))") (Matriz(i,j),j=1,5,1)<br />
END DO<br />
<br />
WRITE (*,*) "Resultado"<br />
DO i = 1, 5<br />
WRITE (*,"(5(F6.2))") (Resultado(i,j),j=1,5,1)<br />
END DO<br />
END PROGRAM aula<br />
</code></div>
Adonaimedrado