Ir ao conteúdo

Pequeno Problema No Algoritmo...


pudiim1

Posts recomendados

Postado

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

ca4c0fba.jpg

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.

dde5aef5.jpg

É 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 : ",B)

escreva (" Digite a Sua Senha : ")

leia(s)

se s<>senha então

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

leia(B)

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

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!