Códigos de Aula dia 30-10-17

A seguir temos dois códigos desenvolvidos em sala de aula como recurso de aprendizagem sobre formatação e posteriormente uma introdução sobre escrita em arquivos.

Exemplo 01
https://gist.github.com/zrhans/b76a3713393a7052c164dfd2c170e4ca

Resultado:

(p34dj19)cabox@box-codeanywhere:~/workspace/f$ ./a.out
 !234567890

------------------------------
  Detalhes do produto são
------------------------------
       Nome:       Id: Peso:
------------------------------
 Bolacha            1   1.24
 Massa              4  12.35
 Graxa              8  32.87
 Bicileta Caloi     3   2.87
==============================
             Total: 48.09

Exemplo 02

https://gist.github.com/zrhans/10135101ae531019e0402d41f7cb9849

Resultado:

(p34dj19)cabox@box-codeanywhere:~/workspace/f$./a.out;cat dados.txt;
 1 001 0.1600000
 2 002 0.3200000
 3 003 0.4800000
 4 004 0.6400000
 5 005 0.8000000
 6 006 0.9600000
 7 007 1.1200000
 8 008 1.2800000
 9 009 1.4399999
10 010 1.5999999

Sugestão:  Refaça os programas acima adicionando comentários antes de cada comando indicando o que eles farão. Envie para o professor o seu código comentado usando o link ENVIAR e receba seu feedback.


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

Verified by MonsterInsights