Skip to content

Instantly share code, notes, and snippets.

@zrhans

zrhans/fatura-compras.f90

Last active Oct 31, 2017
Embed
What would you like to do?
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
@zrhans

This comment has been minimized.

Copy link
Owner Author

@zrhans zrhans commented Oct 31, 2017

(p34dj19)cabox@box-codeanywhere:~/workspace/f$ gfortran teste.f90; ./a.out;

------------------------------
     Detalhes do produto
------------------------------
    Produto       Id   Preço
==============================
 Bolacha          001   1.24
 Massa            004  12.35
 Graxa            008  32.87
 Bicileta Caloi   003   2.87
------------------------------
               Total:  48.09


(p34dj19)cabox@box-codeanywhere:~/workspace/f$ 
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment