program abastecimentocharacter(len=10)::combustivelprint*,''print*,"Posto de Combustivel!"write(*,100)valor=100.00! R$ 100,00combustivel="Diesel"call abastecer(tanque,valor,combustivel)write(*,103)"Litros abastecidos? ",tanquewrite(*,*)"Tipo de combustivel? [Comum/Premium/Diesel] ",combustivelwrite(*,100)write(*,101)valorwrite(*,102)100format(1x,60('-'))102format(1x,60('_'),/)101format(' Total a pagar: R$ ',f7.2)103format(a20,f7.2)end program abastecimento!========================================subroutine abastecer(tanque,valor,tipo)!========================================character(len=10)::tipotanque=valor/preco_litro(tipo)end subroutine!============================function preco_litro(tipogas)!============================character(len=10)::tipogasif(tipogas.eq.'Comum')thenpreco_litro=3.9endifif(tipogas.eq.'Premium')thenpreco_litro=4.09endifif(tipogas.eq.'Diesel')thenpreco_litro=3.33endifend function
Comments (1)
Hans Rogério Zimermann
O que aconteceria com o código caso fosse adicionado o comando implicit none?
HTTPSSSH
You can clone a snippet to your computer for local editing.
Learn more.
O que aconteceria com o código caso fosse adicionado o comando
implicit none
?