Estrutura de Repetição

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

algoritmo "calculo lanche"
var
// 1 - declaração de variáveis
quantidade: inteiro
codigo: inteiro
flag: caracter
totalCliente: inteiro
totalFaturamento: real
valor :real
inicio
repita
 repita
 // 2 - entrada de dados
 escreva("digite o código do lanche: ")
 leia(codigo)
 se (codigo < 100) ou (codigo > 105) entao
 escreval("Código Errado !")
 fimse
 ate (codigo >= 100) e (codigo <=105)
 repita
 escreva("digite a quantidade consumida: ")
 leia(quantidade)
 se (quantidade <= 0) entao
 escreval("A QUANTIDADE deve zer maior que 0!")
 fimse
 ate (quantidade > 0)
 escreval
 // 3 - cálculos e saída de dados
 se (codigo=100) entao
 valor <- quantidade*1.2
 escreval(quantidade," x Cachorro quente(1,20) = R$",valor)
 senao
 se (codigo=101) entao
 valor <- quantidade*1.3
 escreval(quantidade," x Bauru Simples (1,30) = R$",valor)
 senao
 se (codigo=102) entao
 valor <- quantidade*1.5
 escreval(quantidade," x Bauru com ovo (1,50) = R$",valor)
 senao
 se (codigo=103) entao
 valor <- quantidade*1.2
 escreval(quantidade," x Hambúrger(1,20) = R$",valor)
 senao
 se (codigo=104) entao
 valor <- quantidade*1.3
 escreval(quantidade," x Cheeseburger(1,30) = R$",valor)
 senao
 se (codigo=105) entao
 valor <- quantidade*1.0
 escreval(quantidade," x Refrigerante (1,00) = R$",valor)
 fimse
 fimse
 fimse
 fimse
 fimse
 fimse
 //totalizadores
 totalCliente <- totalCliente + 1
 totalFaturamento <- totalFaturamento + valor
 repita
 escreva("Deseja continuar (S/N): ")
 leia(flag)
 se (flag <> "S") e (flag <> "N") entao
 escreval("Digite 'S' ou 'N' ")
 fimse
 ate (flag = "S") ou (flag = "N")
ate (flag="N")
escreval("===== RELATORIO FINAL =====")
escreval("Total Faturado : R$",totalFaturamento)
escreval("Total de clientes: ",totalCliente)
fimalgoritmo