Algoritmo Cadastro no visualg

nexus.tecinfo · 14 de setembro de 2010

Bom dia,

Estou tentando fazer um algoritmo para cadastro, não sei onde esta o

erro, já que quando eu coloco a opção 1 e 2 da tudo certo, quando vou

pra opção 3 e 4 não aparece os tipos para que possa fazer as CONSULTAS

e EXCLUSÕES, alguem poderia desvendar este misterio?

segue o formato que estou montando para poder alguem descobrir.


algoritmo "Cadastro"
// Função :
// Autor :
// Data : 14/09/2010
// Seção de Declarações
var
opcao,tipo:inteiro
nome, endereco:caracter
cpf,telefone,data_nascimento:real
inicio
// Seção de Comandos

     escreval("Cadastro de cliente")
     escreval("1-incluir")
     escreval("2-Alterar")
     escreval("3-consultar")
     escreval("4-Excluir")
     escreval("5-Sair")
leia(opcao)
           se opcao=1 então
    escreva("Nome:")
leia(nome)
    escreva("Endereço:")
leia(endereco)
    escreva("CPF:")
leia(cpf)
    escreva("Telefone:")
leia(telefone)
    escreva("Data Nascimento:")
leia(data_nascimento)
     senao
          se opcao =2 então
    escreval("Alterar dados")
    escreval("Alterar Nome - 1")
    escreval("Alterar Endereço - 2")
    escreval("Aleterar CPF - 3")
    escreval("Alterar Telefone - 4")
    escreval("Alterar Data de Nascimento - 5")
leia(tipo)
         se tipo=1 então
    escreva("Altere o Nome:")
      senao
           se tipo=2 então
    escreva("Altere o Endereço:")
      senao
           se tipo=3 então
    escreva("Altere o CPF:")
      senao
           se tipo=4 então
    escreva("Altere o Telefone:")
      senao
           se tipo=5 então
    escreva("Altere a Data de Nascimento:")

         senao
          se opcao =3 então
    escreval("Consultar dados")
    escreval("Consultar Nome - 1")
    escreval("Consultar Endereço - 2")
    escreval("Consultar CPF - 3")
    escreval("Consultar Telefone - 4")
    escreval("Consultar Data de Nascimento - 5")
leia(tipo)
         se tipo=1 então
    escreva("Consulte o Nome:")
      senao
           se tipo=2 então
    escreva("Consulte o Endereço:")
      senao
           se tipo=3 então
    escreva("Consulte o CPF:")
      senao
           se tipo=4 então
    escreva("Consulte o Telefone:")
      senao
           se tipo=5 então
    escreva("Consulte a Data de Nascimento:")
    senao
           se opcao=4 então
    escreval("Excluir dados:")
    escreval("Excluir Nome - 1")
    escreval("Excluir Endereço - 2")
    escreval("Excluir CPF - 3")
    escreval("Excluir Telefone - 4")
    escreval("Excluir Data de Nascimento - 5")
leia(tipo)
         se tipo=1 então
         escreva("Exclua o Nome:")
      senao
           se tipo=2 então
    escreva("Exclua o Endereço:")
      senao
           se tipo=3 então
    escreva("Exclua o CPF:")
      senao
           se tipo=4 então
    escreva("Exclua o Telefone:")
      senao
           se tipo=5 então
    escreva("Exclua a Data de Nascimento:")


       fimse
         fimse
       fimse
         fimse
       fimse
         fimse
       fimse
         fimse
         fimse
         fimse
       fimse
         fimse
       fimse
       fimse
       fimse
       fimse
       fimse
       fimse
       fimse


fimalgoritmo

Kreitos · 15 de setembro de 2010

Sempre coloque seu codigo com a tag CODE, ao invés de usar tanto 'se' 'senao' porque nao usa um 'escolha' e 'caso' ? acho que vai simplificar para você, se nao me engano quando você abro um 'senao' você tem que fechalo com um 'fimsenao'.

Ex.

Se
FimSe
Senao
FimSenao

nexus.tecinfo · 16 de setembro de 2010

Kreitos, estive tentando fazer também com o 'escolha e caso' e quando vai complilar da um erro pedindo fimalgoritmo, só que na estrutura já tem o fimalgoritmo, não sei onde esta o erro, nem de uma forma e nem de outra, rsrs, agradeço desde já a ajuda, vamos ficar tentando descobri o erro, a respeito da parte do 'fimse' não necessariamente tem que ser logo após o termino, como eu fiz esta certo também, colocando o fimse no final de tudo. Abraços!!!

Kreitos · 17 de setembro de 2010

Segue exemplo de um escolha


var x: inteiro
Escolha(x)

caso 1

caso 2

....

outro caso

FiimEscolha

nexus.tecinfo · 17 de setembro de 2010

Olá Kreitos.

Conseguir fazer com o "se", não conseguir fazer com o "Escolha". erá erro de formatação, como você tinha falado anteriormente a respeito do fimse, sair colocando em cada mudança do 'SE'. Obrigado pela ajuda. irei postar aq o que fiz.

Abraços.


algoritmo "Cadastro"
// Função :
// Autor :
// Data : 14/09/2010
// Seção de Declarações
var
opcao,tipo:inteiro
nome, endereco:caracter
cpf,telefone,data_nascimento:caracter
inicio
// Seção de Comandos

   escreval("*****Cadastro de cliente*****")
   escreval("1-incluir")
   escreval("2-Alterar")
   escreval("3-consultar")
   escreval("4-Excluir")
   escreval("5-Sair")
   leia(opcao)
   se opcao=1 então
      escreva("Nome:")
      leia(nome)
      escreva("Endereço:")
      leia(endereco)
      escreva("CPF:")
      leia(cpf)
      escreva("Telefone:")
      leia(telefone)
      escreva("Data Nascimento:")
      leia(data_nascimento)
   senao
        se opcao=2 então
            escreval("*****Alterar dados*****")
            escreval("Alterar Nome - 1")
            escreval("Alterar Endereço - 2")
            escreval("Aleterar CPF - 3")
            escreval("Alterar Telefone - 4")
            escreval("Alterar Data de Nascimento - 5")
            leia(tipo)
            se tipo=1 então
               escreva("Altere o Nome:")
            senao
               se tipo=2 então
                  escreva("Altere o Endereço:")
               senao
                  se tipo=3 então
                     escreva("Altere o CPF:")
                  senao
                     se tipo=4 então
                        escreva("Altere o Telefone:")
                     senao
                        se tipo=5 então
                           escreva("Altere a Data de Nascimento:")
                        fimse
                     fimse
                  fimse
               fimse
            fimse
        senao
            se opcao =3 então
               escreval("*****Consultar dados*****")
               escreval("Consultar Nome - 1")
               escreval("Consultar Endereço - 2")
               escreval("Consultar CPF - 3")
               escreval("Consultar Telefone - 4")
               escreval("Consultar Data de Nascimento - 5")
               leia(tipo)
               se tipo=1 então
                  escreva("Consulte o Nome:")
               senao
                    se tipo=2 então
                       escreva("Consulte o Endereço:")
                    senao
                         se tipo=3 então
                            escreva("Consulte o CPF:")
                         senao
                            se tipo=4 então
                                escreva("Consulte o Telefone:")
                            senao
                                se tipo=5 então
                                    escreva("Consulte a Data de Nascimento:")
                                fimse
                            fimse
                         fimse
                    fimse
               fimse
            senao
                 se opcao=4 então
                    escreval("*****Excluir dados:*****")
                    escreval("Excluir Nome - 1")
                    escreval("Excluir Endereço - 2")
                    escreval("Excluir CPF - 3")
                    escreval("Excluir Telefone - 4")
                    escreval("Excluir Data de Nascimento - 5")
                    leia(tipo)
                       se tipo=1 então
                          escreva("Exclua o Nome:")
                       senao
                          se tipo=2 então
                             escreva("Exclua o Endereço:")
                          senao
                             se tipo=3 então
                                escreva("Exclua o CPF:")
                             senao
                                se tipo=4 então
                                   escreva("Exclua o Telefone:")
                                senao
                                   se tipo=5 então
                                      escreva("Exclua a Data de Nascimento:")
                                   fimse
                                fimse
                             fimse
                          fimse
                       fimse
                 senao
                      escreva("Programa encerrado!")
                 fimse
            fimse
        fimse
   fimse

fimalgoritmo

Chevchenko · 21 de outubro de 2010

Criado em Selecione/Caso, coloquei um looping feito em repita, basta digitar 5 no primeiro menu e o algoritmo interrompe

algoritmo "Cadastro"
// Função :
// Autor :
// Data : 14/09/2010
// Seção de Declarações
var
opcao,tipo:inteiro
nome, endereco:caracter
cpf,telefone,data_nascimento:caracter
inicio
// Seção de Comandos
repita
escreval("*****Cadastro de cliente*****")
escreval("1-incluir")
escreval("2-Alterar")
escreval("3-consultar")
escreval("4-Excluir")
escreval("5-Sair")
leia(opcao)
escolha opcao
caso 1
escreva("Nome:")
leia(nome)
escreva("Endereço:")
leia(endereco)
escreva("CPF:")
leia(cpf)
escreva("Telefone:")
leia(telefone)
escreva("Data Nascimento:")
leia(data_nascimento)
caso 2
escreval("*****Alterar dados*****")
escreval("Alterar Nome - 1")
escreval("Alterar Endereço - 2")
escreval("Aleterar CPF - 3")
escreval("Alterar Telefone - 4")
escreval("Alterar Data de Nascimento - 5")
leia(tipo)
se tipo=1 então
escreva("Altere o Nome:")
senao
se tipo=2 então
escreva("Altere o Endereço:")
senao
se tipo=3 então
escreva("Altere o CPF:")
senao
se tipo=4 então
escreva("Altere o Telefone:")
senao
se tipo=5 então
escreva("Altere a Data de Nascimento:")
fimse
fimse
fimse
fimse
fimse
caso 3
escreval("*****Consultar dados*****")
escreval("Consultar Nome - 1")
escreval("Consultar Endereço - 2")
escreval("Consultar CPF - 3")
escreval("Consultar Telefone - 4")
escreval("Consultar Data de Nascimento - 5")
leia(tipo)
se tipo=1 então
escreva("Consulte o Nome:")
senao
se tipo=2 então
escreva("Consulte o Endereço:")
senao
se tipo=3 então
escreva("Consulte o CPF:")
senao
se tipo=4 então
escreva("Consulte o Telefone:")
senao
se tipo=5 então
escreva("Consulte a Data de Nascimento:")
fimse
fimse
fimse
fimse
fimse
caso 4
escreval("*****Excluir dados:*****")
escreval("Excluir Nome - 1")
escreval("Excluir Endereço - 2")
escreval("Excluir CPF - 3")
escreval("Excluir Telefone - 4")
escreval("Excluir Data de Nascimento - 5")
leia(tipo)
se tipo=1 então
escreva("Exclua o Nome:")
senao
se tipo=2 então
escreva("Exclua o Endereço:")
senao
se tipo=3 então
escreva("Exclua o CPF:")
senao
se tipo=4 então
escreva("Exclua o Telefone:")
senao
se tipo=5 então
escreva("Exclua a Data de Nascimento:")
fimse
fimse
fimse
fimse
fimse
caso 5
escreva("Programa encerrado!")
outrocaso
escreval("opção Invalida")
fimescolha
ate opcao=5
fimalgoritmo