Pequeno Problema No Algoritmo...

[pudiim1]

Eai povo do Clube do Hardware, tudo beleza? Bom, espero que sim...

Estou com um pequeno problema no meu algoritmo, que no caso é um trabalho do meu curso e queria que vocês me ajudem com um pequeno problema que esta acontecendo.

Aqui, o meu projeto e uma loja de jogos, onde pode - se realizar o cadastro de novos jogos e ver os jogos já cadastrados, e assim tambem com os clientes. O que acontece é que quando estamos no menu, e colocamos qualquer outra opção que não esteja marcado o programa da erro e você é obrigado a fechar e abrir novamente. Vou postar algumas fotos para melhor entendimento.

Este e o Menu

Ai quando escolho uma opção que não e entre 1~3 da esse erro... Queria corrigir e colocar, não para o programar fechar, mais para você escolher outra opção sem fechar o programa.

É isso ai, vou deixar o algoritmo abaixo, e tambem queria que se alguem tivesse algum outro algoritmo desse estilo pronto, que me passa-se por favor, para eu ter algumas ideias

ALGORITMO:

algoritmo "Loja de Jogos"

// Função : Software loja de JOGOS

// Autor : Bruno Crivelaro / Igor Karagiannis / Lucas Zanon

// Data : 19/05/2012

// Seção de Declarações

var

cpf,ano,gen,categoria,status,nomejg,nome,telefone,nomecli,cidade,sexo,datanascimento,end,email,bairro,estado,data:vetor [1..20] de caracter

opc,x,z,mjg:inteiro

jg1,cliente1,codjg:inteiro

q:caracter

opc1:caracter

opccpf,gasto:real

procedimento login //Começa a Área de Login.

var

b:caracter

senha,s:inteiro

inicio

b <- "BIL GAMES"

senha <- 12345

escreval("Seja Bem-Vindo a tela de login da BIL GAMES. Por Favor, Faça o Login Abaixo. ")

escreval("___________________________________LOGIN___________________________________")

escreval(" Digite o Seu Login : ",

escreva (" Digite a Sua Senha : ")

leia(s)

se s<>senha então

escreva("###Senha Incorreta. Por Favor, Abra o Programa Novamente.###")

leia(

fimalgoritmo

fimse

limpatela

fimprocedimento //Aqui acaba o login.

procedimento menuprincipal //Menu Principal.

inicio

escreval("")

escreval("____________________________________________________________________________________________")

escreval(" Menu BIL GAMES ")

escreval("")

escreval(" 1 - Jogos ")

escreval(" 2 - Clientes ")

escreval(" 3 - Sair do Programa ")

escreval("")

escreval("____________________________________________________________________________________________")

repita

escreva("Escolha uma opção: ")

leia(opc)

ate(opc>=0)

limpatela

escolha opc

caso 1

mjg

caso 2

mcliente

caso 3

escreva ("Obrigado.")

fimalgoritmo

interrompa

outrocaso

caso opc>6

escreval("")

escreval("A Opção Que Você Escolheu Não é Valida. Por Favor, Abra o Programa Novamente.")

escreval("")

fimescolha

falso

repita ate opcao=5

fimalgoritmo

fimprocedimento //Fim do Menu

procedimento mjg //Aqui é onde cadastramos e consultamos os JOGOS.

inicio

repita

escreval("################################### Jogos ###############################################")

escreval("_________________________________________________________________________________________")

escreval(" 1- Cadastrar Um Novo Jogo")

escreval(" 2- Consultar Jogos Já Cadastrados")

escreval(" 3- Voltar ao Menu principal ")

escreval(" ")

escreval("_________________________________________________________________________________________")

repita

escreva("Escolha Uma Das Opções Acima:")

leia(opc)

ate (opc>=0)

limpatela

escolha opc //Para cada caso deve ser criado um procedimento.

caso 1

cadastrojg

caso 2

listarjg

caso 3

menuprincipal

outrocaso

escreval("")

escreval("A Opção Que Você Escolheu Não é Valida. Por Favor, Abra o Programa Novamente.")

escreval("")

fimescolha

fimrepita

fimprocedimento //Acaba o menu de consulta dos JOGOS

procedimento cadastrojg //Area para cadastro de JOGOS

inicio

repita

escreval("________________________________________________________________________________________")

escreval(" ")

escreval("--------------------------------Cadastro de Novo Jogo-----------------------------------")

escreval(" ")

escreval("________________________________________________________________________________________")

escreva("Digite o Nome Do Jogo : ")

jg1<-jg1+1 //Cadastrar Jogo

leia(nome[jg1])

escreva("Digite a Plataforma Do Jogo : ")

leia(categoria[jg1])

escreva("Digite o Genêro do Jogo : ")

leia(gen[jg1])

escreva("Digite a Classificação Etária do Jogo : ")

leia(ano[jg1])

repita

escreval("")

escreval("Deseja Cadastrar Mais Algum Jogo? S(SIM) N(NÃO)")

leia(opc1)

ate(opc1="s")ou (opc1="n")

limpatela

ate opc1="n"

limpatela

fimprocedimento //Termina o Cadastro de JOGOS

procedimento listarjg //Ver JOGOS Já Cadastrados

inicio

escreval(" ")

escreval("----------------------------------Jogos Cadastrados---------------------------------------")

escreval(" ")

escreval("______________________________________________________________________________________")

para z de 1 ate jg1 faca

escreval("~>Jogo : ",z,"")

escreval("")

escreval("~>Nome : ",nome[z],"")

escreval("~>Plataforma : ",categoria[z],"")

escreval("~>Gênero : ",gen[z],"")

escreval("~>Faixa Etária : ",ano[z],"")

escreval("")

escreval("______________________________________________________________________________________")

fimpara

escreval("")

escreva("Pressione qualquer tecla para continuar ! ")

leia(q)

limpatela

fimprocedimento//Acaba a consulta de cd cadastrados.

procedimento mcliente //Cadastro de Clientes e Consulta.

inicio

repita

escreval("####################################Clientes########################################")

escreval("_______________________________________________________________________________________")

escreval(" 1- Cadastrar Clientes")

escreval(" 2- Listar Clientes")

escreval(" 3- Voltar ao Menu principal ")

escreval(" ")

escreval("----------------------------------------------------------------------------------------")

repita

escreva("Escolha uma opção::")

leia(opc)

ate (opc>=0)

limpatela

escolha opc //Para cada caso tem que ser feito outro procedimento

caso 1

cadastrocliente

caso 2

listarcliente

caso 3

menuprincipal

outrocaso

escreval("")

escreval("A Opção Que Você Escolheu Não é Valida. Por Favor, Abra o Programa Novamente.")

escreval("")

fimescolha

fimrepita

fimprocedimento //Termina o Menu do Cliente

procedimento cadastrocliente //Começa o Cadastro dos Clientes

inicio

repita

escreval("########################################################################################")

escreval(" ")

escreval(" Cadastro do Cliente ")

escreval(" ")

escreval("________________________________________________________________________________________")

escreva("Nome : ")

cliente1<-cliente1+1 //Adicionar um Cliente

leia(nome[cliente1])

escreva("C.P.F : ")

leia(cpf[cliente1])

escreva ("Data de Nascimento : ")

leia(datanascimento[cliente1])

escreva ("Sexo : ")

leia(sexo[cliente1])

escreva ("Telefone : ")

leia(telefone[cliente1])

escreva ("Cidade : ")

leia(cidade[cliente1])

escreva ("Bairro : ")

leia(bairro[cliente1])

escreva ("Endereço : ")

leia(end[cliente1])

escreva ("Estado : ")

leia(estado[cliente1])

escreva ("E-mail : ")

leia(email[cliente1])

repita

escreval("")

escreval("Deseja Cadastrar Mais Algum Jogo? S(SIM) N(NÃO)")

leia(opc1)

ate(opc1="s")ou (opc1="n")

limpatela

ate opc1="n"

limpatela

fimprocedimento//Acaba o cadastro de clientes.

procedimento listarcliente //Inicia a consulta de clientes cadastrados.

inicio

escreval("########################################################################################")

escreval(" ")

escreval(" Lista de Clientes ")

escreval(" ")

escreval("________________________________________________________________________________________")

para x de 1 ate cliente1 faca

escreval("•Cliente : ",x,"")

escreval("")

escreval("•Nome : ",nome[x],"")

escreval("•C.P.F : ",cpf[x], "")

escreval("•Data de Nascimento : ",datanascimento[x],"")

escreval("•Sexo : ",sexo[x],"")

escreval("•Telefone : ",telefone[x],"")

escreval("•Estado : ",estado[x],"")

escreval("•Cidade : ",cidade[x],"")

escreval("•Bairro : ",bairro[x],"")

escreval("•Endereço : ",end[x],"")

escreval("•E-Mail : ",email[x],"")

escreval("")

escreval("______________________________________________________________________________________")

fimpara

escreval("")

escreva("Digite qualquer tecla para continuar ! ") //volta ao menu

leia(q)

limpatela

fimprocedimento //Termina a consulta dos clientes

inicio

//Escolhe o que inicia primeiro. No caso, a tela de login.

login

menuprincipal

inicio

escreval("Enter para continuar")

leia(q)

limpatela

fimrepita

fimalgoritmo

[nandanaka]

Acredito que isso possa funcionar:

leia(opc)

ate(opc>=0 e opc<=3)

Aí você apaga o outrocaso do algoritmo...

[pudiim1]

Ah sim, vou tentar!