Difference between revisions of "F90: O uso do PARAMETER"
From AdonaiMedrado.Pro.Br
(New page: <code lang="fortran"> PROGRAM aula IMPLICIT NONE INTEGER :: E REAL, PARAMETER :: pi = 3.14159265 REAL :: raio, area WRITE (*,*) "Digite o valor do raio da esfera:" DO READ (*,*,IOs...) |
|||
| (2 intermediate revisions by the same user not shown) | |||
| Line 4: | Line 4: | ||
INTEGER :: E | INTEGER :: E | ||
REAL, PARAMETER :: pi = 3.14159265 | REAL, PARAMETER :: pi = 3.14159265 | ||
| − | REAL :: raio, area | + | REAL :: raio, area, volume |
WRITE (*,*) "Digite o valor do raio da esfera:" | WRITE (*,*) "Digite o valor do raio da esfera:" | ||
DO | DO | ||
| Line 15: | Line 15: | ||
END DO | END DO | ||
area = 4*pi*(raio**2) | area = 4*pi*(raio**2) | ||
| − | WRITE (*,"(A, | + | WRITE (*,"(A,F10.2)") "A área da superfície da esfera é ",area |
| + | volume = (4/REAL(3))*pi*(raio**3) | ||
| + | WRITE (*,"(A,F10.2)") "O volume da esfera é ",volume | ||
END PROGRAM | END PROGRAM | ||
</code> | </code> | ||
Latest revision as of 01:23, 3 November 2008
PROGRAM aula IMPLICIT NONE INTEGER :: E REAL, PARAMETER :: pi = 3.14159265 REAL :: raio, area, volume WRITE (*,*) "Digite o valor do raio da esfera:" DO READ (*,*,IOstat=E) raio IF (E>0) THEN WRITE (*,*) "Valor inválido. O raio deve ser um valor real." ELSE EXIT END IF END DO area = 4*pi*(raio**2) WRITE (*,"(A,F10.2)") "A área da superfície da esfera é ",area volume = (4/REAL(3))*pi*(raio**3) WRITE (*,"(A,F10.2)") "O volume da esfera é ",volume END PROGRAM
