F90: Funções matemáticas intrínsecas

From AdonaiMedrado.Pro.Br
Jump to: navigation, search
PROGRAM aula
	IMPLICIT NONE
	REAL, PARAMETER :: pi = 3.14159265
	REAL :: angulo, angulo_r
	WRITE (*,*) "Digite um angulo em graus"
	READ (*,*) angulo
	angulo_r = (angulo*pi)/180
	WRITE (*,*) "Seno=",sin(angulo_r),"Cos=",cos(angulo_r),"Tangente=",tan(angulo_r)
END PROGRAM