F90: Ola com contagem de letras e remoção de espaços
From AdonaiMedrado.Pro.Br
Revision as of 03:10, 7 October 2008 by Adonaimedrado (Talk | contribs) (New page: <code lang="fortran"> PROGRAM aula IMPLICIT NONE CHARACTER(LEN=25) :: Nome, Sobrenome CHARACTER(LEN=50) :: NomeCompleto WRITE (*,*) "Digite seu nome" READ (*,*) Nome WRITE (*,*) "Dig...)
PROGRAM aula IMPLICIT NONE CHARACTER(LEN=25) :: Nome, Sobrenome CHARACTER(LEN=50) :: NomeCompleto WRITE (*,*) "Digite seu nome" READ (*,*) Nome WRITE (*,*) "Digite seu sobrenome" READ (*,*) Sobrenome NomeCompleto = TRIM(NOME) // " " // TRIM(Sobrenome) WRITE (*,*) "Ola ",NomeCompleto WRITE (*,*) "Seu nome tem ",LEN(TRIM(Nome))," letra(s) a primeira é ",Nome(1:1) WRITE (*,*) "Seu sobrenome tem ",LEN(TRIM(Sobrenome))," letra(s) as duas primeiras são ",Sobrenome(1:2) END PROGRAM aula