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

program teste
character (len=15) :: produto
integer :: id
real :: preco, s = 0.0
produto = 'Bolacha'
id = 1
preco = 1.24
print *,''
100 format(30(""))
print 100
print *,' Detalhes do produto'
print 100
print 101
101 format (4x,'Produto', 7x, 'Id', 3x, 'Preço')
print '(30("="))'
print 200, produto, id, preco
200 format(1x, a, 2x, i3.3, 2x, f5.2)
produto = "Massa"; id=4; preco=12.3456
s = s + preco
print 200, produto, id, preco
produto = "Graxa"; id=8; preco=32.87
s = s + preco
print 200, produto, id, preco
produto = "Bicileta Caloi"; id=3; preco=2.87
s = s + preco
print 200, produto, id, preco
print 201, s
201 format(30(""),/,14x," Total: ",1x,f5.2,2/)
end program teste

view raw
fatura-compras.f90
hosted with ❤ by GitHub

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

program arquivos
integer :: a
open(unit=10, file='dados.txt', status="unknown")
do a = 1, 10
write(10,99) a , a, a * 0.16
end do
99 format(i2,1x,i3.3, 1x, f10.7)
close(10)
end program arquivos

view raw
arquivo.f90
hosted with ❤ by GitHub

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.

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.