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

From AdonaiMedrado.Pro.Br
Revision as of 02:41, 3 November 2008 by Adonaimedrado (Talk | contribs) (New page: <code lang="fortran"> PROGRAM aula IMPLICIT NONE REAL, PARAMETER :: pi = 3.14159265 REAL :: angulo, angulo_r WRITE (*,*) "Digite um angulo em graus" READ (*,*) angulo angulo_r = (ang...)

(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
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
Retrieved from "https://www.adonaimedrado.pro.br/wiki/index.php?title=F90:_Funções_matemáticas_intrínsecas&oldid=722"