Marlon Gramacho

@kgin Mande o print da tela toda ai porque aqui ta dando que não reconhece o const MAXIMO_PRODUTOS = 10

@Simon Viegas esse código não esta rodando no visualg nem no 2.5 e nem no 3.0

@kgin Esse constante é o que e coloca onde?? const MAXIMO_PRODUTOS = 10 tipo tproduto=registro nome:caractere codigo:inteiro valor:real fimRegistro

Bom galera, é o seguinte Fiz este código a qual esta funcionando perfeitamente, mas gostaria que apresentasse um tipo de nota fiscal no final do valor informando os itens selecionados o valor de cada item e o valor final bem parecido como em uma nota fiscal. Tem como fazer isso, se sim, como? Pois não faço a menor ideia. Var valorTotal: real codigo, quantidade: inteiro deveContinuarPerguntando, digitouRespostaInvalida: logico clienteConsumiuMais : caractere Inicio funcao retornarValorPeloCode(code: inteiro): real inicio escolha code caso 100 // R$ 5,20 Pao de Queijo retorne 5.20 caso 101 //Bauru simples 101 R$ 7,30 retorne 7.30 caso 102 //Quibe 102 R$ 6,50 retorne 6.50 caso 103 //Coxinha de frango 103 R$ 6,70 retorne 6.70 caso 104 //Torta de Frango (fatia) 104 R$ 11,10 retorne 11.10 caso 105 //Empada de bacalhau 105 R$ 9,50 retorne 9.50 caso 106 //Pão delícia 106 R$ 5,80 retorne 5.80 caso 107 //Esfirra 107 R$ 8,40 retorne 8.40 caso 108 //Rissole de queijo 108 R$ 10,60 retorne 10.60 caso 109 //Croquete 109 R$ 9,10 retorne 9.10 caso 110 //Canapés 110 R$ 13,40 retorne 13.40 fimescolha fimfuncao deveContinuarPerguntando := verdadeiro valorTotal := 0 enquanto deveContinuarPerguntando faca Escreval ("___________________________________________________________________________________________________") Escreval (" Delicatessen Veneza ") Escreval ("___________________________________________________________________________________________________") Escreval ("") Escreval(" Olá, seja Bem Vindo a Delicatessen Veneza ") Escreval(" O que vamos consumir hoje? ") Escreval ("") escreva("Digite o codigo de um salgado que o cliente consumiu: ") leia(codigo) escreva("Digite a quantidade desse salgado que o cliente consumiu: ") leia(quantidade) valorTotal <- (retornarValorPeloCode(codigo) * quantidade) escreva("O cliente consumiu mais algum salgado? Digite S(SIM) OU N(NÃO)") repita leia(clienteConsumiuMais) se clienteConsumiuMais = "S" entao deveContinuarPerguntando := verdadeiro interrompa fimse se clienteConsumiuMais = "N" entao deveContinuarPerguntando := falso interrompa fimse fimrepita fimenquanto Escreval ("") ESCREVAL("O cliente deve pagar: R$", valorTotal:6:2) Escreval ("") Escreval(" Obrigado volte sempre! ") Fimalgoritmo

A questão é a seguinte: o cliente tem que escolher a metodologia de pagamento sendo:  Condição de pagamento 1 - Em dinheiro, recebe 12% de desconto.  Condição de pagamento 2 - Cartão de crédito, recebe 5% de desconto.  Condição de pagamento 3 - Parcelado no cartão de crédito em duas vezes, preço normal, sem juros.  Condição de pagamento 4 - Parcelado no cartão de crédito em três vezes, com juros 5%. A primeira parte roda com sucesso. Só estou com dificuldade para colocar a opção do cliente escolher a metodologia e assim ocorrer o calculo e seu devido desconto. Obs: a parte que esta espaçado funciona perfeitamente porém não consigo aplicar o desconto var Codigo : Real Nome : caractere Valor: Real Media : Real I: inteiro Total: Real Qnt : real desc : real total_desc : real pagamento : caractere Inicio Para I de 1 Ate 10 Faca Escreva ("Nome do Produto: ") Leia (Nome) Escreva ("Código do Produto: ") Leia (Codigo) Escreva ("Valor Unitario do produto: R$") Leia (Valor) Escreva ("Quantidade do Produto: ") Leia (Qnt) total <-(Valor * Qnt) Escreval( "O Valor total deste produto é: R$", total) media <- (total+media) escreval ("Total da compra é: R$", media) repita escreval ("Escolha a metodologia de pagamento: ") Leia (pagamento) escolha pagamento fimrepita enquanto op<>"4" faca Escreval ("(1) Dinheiro") Escreval ("(2) Cartão de Credito") Escreval ("(3) Cartão de credito (2x)") Escreval ("(4) Cartão de credito (3x)+ 5% de juros") Se op="1" então limpatela Dinheiro() fimse Se op="2" então limpatela Cartão de Credito() fimse Se op="3" então limpatela Cartão de credito (2x)() fimse Se op="4" então limpatela Cartão de credito (3x)+ 5% de juros() fimse fimenquanto fimprocedimento fimescolha procedimento cadastra_item para 1 faca Escreval ("Medologia: Dinheiro") Escreval ("Valor: R$ ", valor*12/100)

Copiei esse código e continua apresentando o mesmo erro

Cara teria outra forma de fazer isso acontecer? O meu tá dando erro na Variável Var poluicao : real Inicio Escreval ("____________________________________________________________") Escreval (" Secretaria Municipal de Meio Ambiente ") Escreval (" SMMA ") Escreval ("____________________________________________________________") Escreval ("Software Controlador de Emissão de Gases Poluentes") Escreval (" CEGP - Vitoria da Conquista ") Escreval (" ") repita escreval ("Informe o nível de poluição: ") leia (poluicao) escolha (poluicao) caso 0 ate 0,69 escreval ("Todas as empresas podem funcionar normalmente") caso 0,7 escreval ("1º grupo de empresas com suas atividades suspensas") caso 0,8 escreval ("1º e 2º grupo de empresas com suas atividades suspensas") caso 0,9 escreval ("1º, 2º e 3º grupo de empresas com suas atividades suspensas") Escreva ("Voltar para o menu (S/N)?") Leia (op) ate op = "n" fimescolha fimprocedimento Fimalgoritmo

Galera é o seguinte fiz o código porém quero que apareça p/ o usuário logo após digitar o valor a opção de voltar ao menu mas é claro que ficando ao critério do usuário, ou seja, usuário digitando a opção "S" volta pra tela perguntando "Informe o nível do mar:" EXEMPLO ABAIXO: Escreva ("Voltar para o menu (S/N)?") Leia (op) Se op="S" entao var mar: real inicio ... escreval("Informe o nível do mar: ") leia(mar) escolha mar caso 0 ate 0,69 escreval("bom") caso 0,7 escreval ("atenção II") caso 0,8 escreval("atenção III") caso 0,9 escreval("ALERTA MAXIMO") fimEscolha fimEnquanto fimProcedimento fimAlgoritmo