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.