Estrutura de repetição enquanto no visualg

[luismatheusbs15]

Eae Galera !

 

Ontem, meu professor de programação passou um exercício utilizando estrutura enquanto e se, ou, então,senao

O programa para ser produzido consiste em cadastrar um produto depois do cadastro completo  na tela ira aparecer duas opções para o usuario se ele deseja continua a cadastrar os produtos ou se ele deseja finaliza o sistema, e após o sistema finalizar o sistema mostra o total de produtos cadastrados e o total em reais de todos os produtos.

Eu agradeceria e muito se vocês me ajudasem, eu deixei o arquivo com meu codigo como anexo.

o algoritimo esta quase concluido mais esta dando um maudito erro kkkk

Aparece a mensagem "fim enquanto sem um enquanto "  vocês veram quando execultarem o programa

 

algoritmo "semnome"
// Função :
// Autor :
// Data : 07/04/2016
// Seção de Declarações
var
QTDE,VALOR:real
TOTAL, CONT, PRODC:REAL
ESC, S, N, VENDA, PRODUTO: CARACTERE
inicio
// Seção de Comandos
escreval("========================================X===========================================")
Escreval("                     C A D A S T R O   D E   P R O D U T O S                        ")
escreval("========================================X===========================================")
CONT<-0
enquanto CONT < 1 faca
   escreval(" Deseja realizar uma venda ? ")
   leia(VENDA)
   se (VENDA= "S") OU (VENDA= "SIM") então
escreval("--------------------------------------1ª Venda----------------------------------------")
escreval("NOME DO PRODUTO:")
Leia(PRODUTO)
Escreval("--------------------------------------------------------------------------------------")
escreval("QUANTIDADE DO PRODUTO:")
leia(QTDE)
Escreval("--------------------------------------------------------------------------------------")
escrevaL("VALOR DO PRODUTO:")
leia(VALOR)
PRODC <- PRODC + 1
TOTAL <- QTDE * VALOR
Escreval("======================================================================================")
escreval(" Deseja adicionar mais Produtos ?                                                     ")
Leia(ESC)
Escreval("======================================================================================")
fimenquanto
se (ESC = "N") OU (ESC = "NÂO") então
escreval("PRODUTOS CADASTRADOS: ", PRODC)
Escreval("TOTAL EM: R$: ", TOTAL)
fimse
fimse
FIMALGORITMO

 

exercio_enquanto_para-revisar.alg

[Simon Viegas]

Olá @luismatheusbs15,

 

Você não pode fechar o enquanto, antes de fechar o se que está dentro dele.

 

 

[PVeloso]

Boa noite Luis

 

O erro acontece pelo fimenquanto estar antes do fimse. Outro problema do seu código é o fim da repetição, quando o usuário digitar N ou NÃO você tem que mudar o valor da variável cont ou não sairá da repetição.

Ok?

[devair1010]

olá Luismatheusbs15
   O PVeloso está certo, Você colocou o fimenquanto fora do lugar, ele tem que
ficar depois dos dois fimse e antes do fimalgoritimo.  e para sair do enquanto
tem que mudar o valor da variável cont; Coloque assim :
cont := 5  antes dos dois fimse .