09/10/2017
1 – Faça um programa em Fortran o somatório dos primeiros 50 números inteiros.
!
! Este programa efetua o somatorio dos numeros
! inteiro de 1 até 50
!----------------------------------------------
program somatorio
implicit none
! Declaracao de variaveis
integer :: i, soma = 0
! Procedimento de somatorio (repeticao)
do i =1,50
soma = soma + i
enddo
! Mostrando o resultado
print*, "O somatorio dos primeiros 50 inteiros vale: ", soma
end program somatorio
Resultado
hrz@jep ~ $ gfortran somatorio.f90 -o somatorio
hrz@jep ~ $ ./somatorio
O somatorio dos primeiros 50 inteiros vale: 1275
hrz@jep ~ $ sdfg
2 – Faça um programa em Fortran que selecione uma mensagem de acordo com o valor de temperatura fornecida pelo usuário:
| Temperatura | Mensagem |
|---|---|
| < 0 | Temperatura Congelante |
| 1 a 10 | Temperatura Fria |
| 11 a 20 | Temperatura Agradavel |
| 21 a 30 | Temperatura Otima |
| 31 a 40 | Temperatura Horrivel |
| 41 < | Valor incorreto |
!
! Este programa selecione uma mensagem de acordo
! com o valor de temperatura fornecida pelo usuário
!
!----------------------------------------------
program temperaturas
implicit none
! Declaração da variável
integer :: temp
! Monstrando mensagem para o usuario
print*, "Digite a Temperatura em Celsius"
! Leitura do valor digitado pelo usuario
read*, temp
print*, "A temperatura digitada foi de: ", temp, " Celsius"
! Seleção da temperatura
select case (temp)
case (:0)
print*, "Temperatura Congelante"
case (1:10)
print*, "Temperatura Fria"
case (11:20)
print*, "Temperatura Agradavel"
case (21:30)
print*, "Temperatura Otima"
case (31:40)
print*, "Temperatura Horrivel"
case (41:)
print*, "Valor incorreto"
end select
end program temperaturas
hrz@jep ~ $ gfortran temperaturas.f90 -o temperaturas
hrz@jep ~ $ ./temperaturas
Digite a Temperatura em Celsius
26
A temperatura digitada foi de: 26 Celsius
Temperatura Otima
hrz@jep ~ $