algoritmo "CalculandoPedidos"
var
ValorH, ValorB, ValorR, ValorTotal: Real
qtdHamburguer, qtdBatata, qtdRefrigerante: Inteiro
opcao: caractere
inicio
ValorH <- 12.00
ValorB <- 7.00
ValorR <- 5.00
ValorTotal <- 0
opcao <- "S"
Enquanto (opcao = "S") ou (opcao = "s") faca
Escreval("Quantos Hamburgueres você deseja?")
Leia(qtdHamburguer)
ValorTotal <- ValorTotal + (qtdHamburguer * ValorH)
Escreval("Quantas Batatas Fritas você deseja?")
Leia(qtdBatata)
ValorTotal <- ValorTotal + (qtdBatata * ValorB)
Escreval("Quantos Refrigerantes você deseja?")
Leia(qtdRefrigerante)
ValorTotal <- ValorTotal + (qtdRefrigerante * ValorR)
Escreval("Deseja realizar mais pedidos? [S/N]")
Leia(opcao)
FimEnquanto
Escreval("O valor total do pedido é: R$", ValorTotal)
fimalgoritmo