APS 3 EX 5

algoritmo "CALCULO POR CODIGO"
// Função : LER O CODIGO DO PRODUTO ASSUMINDO QUE ELE ESTA CERTO, E CALCULAR O TOTAL DE LANCHES VENDIDOS COMO O DE BEBIDAS
// Autor : GILMAR JUNIOR DOS PASSOS
// Data : 07/04/2013
// Seção de Declarações
var
codsdw, codbeb, contador: inteiro
salsdw, salbeb: real
sdw0, sdw1, sdw2, sdw3, beb1, beb2, beb3: real
cdw0, cdw1, cdw2, cdw3, ceb1, ceb2, ceb3: real
imprimir: caracter

inicio
// Seção de Comandos
sdw0 <- 0
sdw1 <- 0
sdw2 <- 0
sdw3 <- 0
beb1 <- 0
beb2 <- 0
beb3 <- 0

para contador de 1 ate 3 faca
   escreva ("Entre com o codigo do sanduiche:")
   leia (codsdw)
   escolha (codsdw)
   caso 100
      escreval ("Cachorro Quente")
      sdw0 <- 1
      cdw0 <- (cdw0 + 1.20)
   caso 101
      escreval ("Bauru Simples")
      sdw1 <- 1
      cdw1 <- (cdw1 + 1.30)
   caso 102
      escreval ("Bauru com Ovo")
      sdw2 <- 1
      cdw2 <- (1.50)
   caso 103
      escreval ("Hamburguer")
      sdw3 <- 1
      cdw3 <- (cdw3 + 1.70)
   outrocaso
      escreval ("Codigo Invalido")
   fimalgoritmo
fimescolha
escreval ("Entre com o codigo da bebida:")
leia (codbeb)
escolha (codbeb)
caso 201
   escreval ("Refrigerante")
   beb1 <- 1
   ceb1 <- (ceb1 + 1.00)
caso 202
   escreval ("Suco")
   beb2 <- 1
   ceb2 <- (ceb2 + 1.50)
caso 203
   escreval ("Agua Mineral")
   beb3 <- 1
   ceb3 <- (ceb3 + 0.70)
outrocaso
   escreval ("Codigo Invalido")
fimalgoritmo
fimescolha
fimpara
escreval ("Total de Vendas Lanches")
escreval ("Vendas ",sdw0," Cachorro quente TOTAL ",cdw0," R$")
escreval ("Vendas ",sdw1," Bauru Simples TOTAL ",cdw1," R$")
escreval ("Vendas ",sdw2," Bauru Com Ovo TOTAL ",cdw2," R$")
escreval ("Vendas ",sdw3," Hamburguer TOTAL ",cdw3," R$")
salsdw <- (cdw0 + cdw1 + cdw2 + cdw3)
escreval ("Total de Vendas Bebidas")
escreval ("Vendas ",beb1," Refrigerante TOTAL ",ceb1," R$")
escreval ("Vendas ",beb2," Suco TOTAL ",ceb2," R$")
escreval ("Vendas ",beb3," Agua Mineral TOTAL ",ceb3," R$")
salbeb <- (ceb1 + ceb2 + ceb3)
escreval ("VALOR TOTAL DE VENDAS SANDWICHES: ",salsdw," R$")
escreval ("VALOR TOTAL DE VENDAS BEBIDAS: ",salbeb," R$")
escreval (" VALOR TOTAL DE VENDAS BURGAO: ", (salsdw + salbeb)," R$")

escreval ("Deseja Imprimir S=SIM N=NÃO")
leia (imprimir)

se imprimir = ("S") entao

imprima ("Total de Vendas Lanches")
imprima ("Vendas ",sdw0," Cachorro quente TOTAL ",cdw0," R$")
imprima ("Vendas ",sdw1," Bauru Simples TOTAL ",cdw1," R$")
imprima ("Vendas ",sdw2," Bauru Com Ovo TOTAL ",cdw2," R$")
imprima ("Vendas ",sdw3," Hamburguer TOTAL ",cdw3," R$")
imprima ("Total de Vendas Bebidas")
imprima ("Vendas ",beb1," Refrigerante TOTAL ",ceb1," R$")
imprima ("Vendas ",beb2," Suco TOTAL ",ceb2," R$")
imprima ("Vendas ",beb3," Agua Mineral TOTAL ",ceb3," R$")
imprima ("VALOR TOTAL DE VENDAS SANDWICHES: ",salsdw," R$")
imprima ("VALOR TOTAL DE VENDAS BEBIDAS: ",salbeb," R$")
imprima (" VALOR TOTAL DE VENDAS BURGAO: ", (salsdw + salbeb)," R$")

senao
fimse

fimalgoritmo