Difference between revisions of "F90: Funções matemáticas intrínsecas"
From AdonaiMedrado.Pro.Br
(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...) |
(No difference)
|
Latest revision as of 02:41, 3 November 2008
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
