Gabarito atividade Fortran 09-10-2017


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 ~ $ 

portalfisica.com

Leave a Reply

%d blogueiros gostam disto: