Categorias
Uncategorized

Gabarito atividade Fortran 09-10-2017

Gabarito de atividade dada em aula

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

Faça o login usando um destes métodos para comentar:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair /  Alterar )

Foto do Google

Você está comentando utilizando sua conta Google. Sair /  Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair /  Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair /  Alterar )

Conectando a %s

Este site utiliza o Akismet para reduzir spam. Saiba como seus dados em comentários são processados.