Exercicio: Calculo do custo da Viagem com alcool ou gasolina

Postado por em 22/08/2011 - Visitas: 6900



Elabore um fluxograma e o programa que calcule o custo de uma viagem e informe se é melhor abastecer o carro com alcool ou gasolina, para isto receba o valor do alcool, o valor da gasolina, a quantidade de km da viagem e o consumo do carro usando gasolina, levando-se em conta que a gasolina consome menos que o alcool, calcule o consumo do alcool como 70% do consumo da gasolina. Calcule o consumo com os dois combustiveis e o preço da viagem, informar no final com qual combustivel você deve abastecer e qual o custo da viagem.

fluxograma


fluxograma




Código em Visual Basic



Dim vlgaso As Double, vlalcool As Double, dista As Double, consumo As Double
Dim consgas As Double, consalc As Double, cusgas As Double, cusalc As Double

vlgaso = InputBox("valor da gasolina")
vlalcool = InputBox("valor alcool")
dista = InputBox("distancia")
consumo = InputBox("consumo do veiculo com gasolina")
consgas = dista / consumo
consalc = consgas * 1.3
cusgas = consgas * vlgaso
cusalc = consalc * vlalcool
If cusgas < cusalc Then
MsgBox ("usar gasolina")
MsgBox ("custo:" & cusgas)
Else
MsgBox ("usar alcool")
MsgBox ("custo: " & cusalc)
End If
End

/ fluxograma


fluxograma
Gostou ? Compartilhe