![](https://portalfisica.com/wp-content/uploads/2017/10/bxeeqli-imgur.png)
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 ~ $
Deixe um comentário