carro.lua

function lerNumero(mensagem)
	io.write(mensagem)
	return io.read("*number")
end


function km4l(km, L)
	return km / L
end

function escrevakm4l(titulo)
	io.write(("*** %s ***\n"):format(titulo))
	local comb = km4l(
		lerNumero("\nEntre com a quilometragem rodada: "),
		lerNumero("Quantidade de litros gastos: ")
	)
	io.write(("Km/L: %.2f\n"):format(comb))
	return comb
end

function lerpreco(tipo, g)
	return lerNumero(("Digite o preço d%s %s: "):format(g, tipo))
end

function porcento(vi, vf, tipo, g, gg)
	io.write(("%s %s é %.2f%% mais vantajos%s"):format(gg, tipo, ((vf - vi) / vi * 100), g))
end

function escrevacusto(valor, tipo)
	io.write(("Custo %s/KM: %.2f\n"):format(tipo, valor))
end

Opcao = lerNumero("[1] Vantagem álcool ou gasolina \n[2] Km por litro \n> ")

if Opcao == 1 then
	CG = escrevakm4l("Gasolina")
	CA = escrevakm4l("Álcool")
	
	PG = lerpreco("gasolina", "a")
	PA = lerpreco("álcool", "o")

	-- Cálculo do custo por quilômetro
	CKG = PG / CG -- Custo com gasolina por quilômetro
	CKA = PA / CA -- Custo com álcool por quilômetro

	escrevacusto(CKG, "Gasolina")
	escrevacusto(CKA, "Álcool")

	-- Verificação da vantagem
	if CKG < CKA then
		porcento(CKG, CKA, "gasolina", "a", "A")
	elseif CKG > CKA then
		porcento(CKA, CKG, "álcool", "o", "O")
	else
		io.write("Os combustíveis têm o mesmo custo por quilômetro.\n")
	end
elseif Opcao == 2 then
	escrevakm4l()
end

io.write("\n")