F90: O uso do PARAMETER

From AdonaiMedrado.Pro.Br
Jump to: navigation, search
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