Ir para conteúdo
Svinnicius

[VISUALG] Erro para encerrar a execução do algoritmo

Recommended Posts

Ao sair de um procedimento e entrar em outro, ta apresentando erro quando tento finalizar o programa.

 

Var
// Seção de Declarações das variáveis 
nome: vetor [1..3]  de caractere
telef: vetor [1..3]  de caractere
ema: vetor [1..3]  de caractere
codigo,codigo_contato,codigo_contato_cheio, menu_apagar,opc, opc1: inteiro
cont, menu_mostrar,op: inteiro
procedimento principal()

Inicio
// Seção de Comandos, procedimento, funções, operadores, etc... 
repita
escreval ("")
escreval ("=== AGENDA TELEFÔNICA ===")
escreval ("")
escreval ("1. Inserir novo contato")
escreval ("2. Apagar contato")
escreval ("3. Mostrar todos os contatos")
escreval ("4. Sair")
escreva ("Digite opcao: ")
leia (codigo)
limpatela
ate (codigo=1) ou (codigo=2) ou (codigo=3) ou (codigo=4)
escolha (codigo)

caso 1
   contato()
caso 2
   apagar()
caso 3
   mostrar()
caso 4
   interrompa
fimescolha
fimprocedimento
//---------------------- NOVO CONTATO ----------------------
procedimento contato()
inicio
para cont de 1 ate 3 faca
limpatela
escreval("== INSERIR NOVO CONTATO ==")
      escreva ("Nome: ")
      leia (nome[cont])
      escreva ("Telefone: ")
      leia (telef[cont])
      escreva ("E-mail: ")
      leia (ema[cont])
      escreval("")
      escreval("Usuario cadrastrado com sucesso")
      repita
      escreval("")
      escreval("1.Insira novo contato")
      escreval("2.Voltar ao menu")
      escreval("")
      escreva("Digite opção: ")
      leia(codigo_contato)
escolha (codigo_contato)
caso 1
escreva("")
caso 2
   interrompa
   limpatela
   principal()
outrocaso
escreval("")
escreval("Opção invalida")
escreval("")
escreval("Pressione ENTER para voltar")
leia(op)
limpatela
fimescolha
ate codigo_contato = 1
fimpara
limpatela
          escreval("")
          escreval("Lista de contato cheia")
          repita
          escreval("")
          escreval("1.Voltar ao menu")
          escreval("2.Sair")
          escreval("")
          escreval("Digite opção")
          leia(codigo_contato_cheio)
    escolha (codigo_contato_cheio)
          caso 1
          limpatela
          principal()
          caso 2
          interrompa
          outrocaso
escreval("")
escreval("Opção invalida")
escreval("")
escreval("Pressione ENTER para voltar")
leia(op)
limpatela
fimescolha
ate codigo_contato_cheio = 1
fimprocedimento


//------------------------ Apagar contato------------------------------------
procedimento apagar()
inicio
limpatela
escreval("== APAGAR CONTATO ==")
Escreval("")
escreva ("Qual contato você quer apagar? ")
Escreval("")
para cont de 1 ate 3 faca
Escreval(cont,". ",nome[cont])
fimpara
Escreval("")
Escreva("Digite opção:")
Leia(opc)
se opc >0 entao
   se opc <4 entao
nome[opc]<-""
telef[opc]<-""
ema[opc]<-""
Escreval("")
Escreval("Contato Apagado com sucesso")
repita
escreval("")
escreval("1.Apagar outro contato")
escreval("2.Voltar ao menu")
escreval("3.Sair")
escreva("Digite opção:")
leia(menu_apagar)
Escolha(menu_apagar)
caso 1
limpatela
apagar()
caso 2
limpatela
principal()
caso3
interrompa

outrocaso
escreval("")
escreval("Opção invalida")
escreval("")
escreval("Pressione ENTER para voltar")
leia(op)
senao
apagar()
fimse
fimse
fimse
fimescolha
ate menu_apagar = 3
fimprocedimento

//-------------------------- Mostrar todos os contatos ---------------------
procedimento mostrar()
inicio
limpatela
escreval("== LISTA DE CONTATOS ==")
Escreval("")
para cont de 1 ate 3 faca
Escreval(cont,". ",nome[cont])
fimpara
Escreval("")
Escreva("Digite opção:")
Leia(opc1)
se opc1 >0 entao
   se opc1 <4 entao
limpatela
Escreval("Nome: ",nome[opc1])
Escreval("Telefone: ",telef[opc1])
Escreval("E-mail: ",ema[opc1])
repita
escreval("")
escreval("1.Mostrar outro contato")
escreval("2.Voltar ao menu")
escreval("")
escreva("Digite opção:")
Leia(menu_mostrar)
Escolha(menu_mostrar)
caso 1
limpatela
mostrar()
caso 2
limpatela
principal()
outrocaso
escreval("")
escreval("Opção invalida")
escreval("")
escreval("Pressione ENTER para voltar")
leia(op)
senao
mostrar()
fimse
fimse
fimescolha
limpatela
ate menu_mostrar = 1
fimprocedimento
inicio
// Seção de Comandos
  principal()

Fimalgoritmo

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora

  • Conteúdo Similar

    • Por alexdyna
      Prezados,
      Amigos tenho que fazer um trabalho da faculdade onde o professor me da um arquivo que vou colocar anexo e tenho que fazer um algoritmo que leia o arquivo e monte uma tabela com as informações.
      pelo que vejo ele tem na primeira linha 8 barra e nas demais linha 10 barras
      ate a ultima que seria sua parada onde temos 2 barras seguidas.
       
      ficaria muito grato com a ajuda de todos.
       
      No arquivo anexo esta o texto:
      Nome/telefone/nascimento/Horas Curso/vendas T1/vendas T2/vendas T3/vendas T4/
       Luiz Ranza Neo/99934-5255/05/12/1989/200/107099,072578621/76915,8996218681/100922,271239691/76372,9971916498/
      Richard de Barrissaia/99326-4689/18/03/1990/150/55123,0080621828/68062,2200055909/67233,9928593779/45236,5928531083/
      Rodrigo Abalâminos/99911-7413/09/08/1987/168/71697,3866071191/58063,5644108225/88183,6230762134/48160,3116315664/
      José Gigfrid/99658-7874/15/04/1997/135/48816,199086596/50086,3689415844/52916,3066872779/55232,0663463164/
      Luiza Celly Silva/99659-1214/01/02/2000/90/29208,8223591438/39361,8088384592/45062,056112236/38913,7237126574/
      Maria Kunlun/99686-7845/21/04/1984/182/92076,1053757689/80440,5339844205/87575,0546657182/79220,9398178354/
      //
       
    • Por thiago_tw
      eu to com uma tarefa que preciso de ajuda, já tentei alguns algoritmos que achei por aqui mas nunca dá certo, mandei a imagem do que é para ser feito, agradecido se me ajudarem

    • Por JonasFloripa
      Bom dia pessoal..
      Estou com um problema e apareceu quando migrei o sistema ue tenho do php5 para o php7.
      Essa parte do sistema que está dando o problema seria quando quero adicionar o nome do pessoal em uma escala, mas quando seleciono os nomes partindo de quem começa com  a letra 'R', não envia as infomarções. Isso não acontecia no php5.
      Vou colocar o código abaixo e o que mostra quando seleciono o checkbox.
       
       
      <table width="100%" border="0" cellpadding="1" cellspacing="1"> <tr> <td width="9%" align="center"> <input name="conf[]" type="checkbox" value="<?PHP echo $login; ?>"/> </td> <td width="21%"><input name="login_<?PHP echo $login;?>" type="text" value="<?PHP echo $login; ?>" readonly class="negrito"/></td> <td width="13%"><input name="hora2_<?PHP echo $login;?>" type="text" value="<?PHP echo $hora2; ?>" size="4" readonly class="negrito"/></td> <td width="13%"><input name="somah2_<?PHP echo $login;?>" type="text" value="<?PHP echo $somah2; ?>" size="4"readonly="readonly" class="negrito"/></td> <td width="13%"><input name="quantidade_<?PHP echo $login;?>" type="text" value="<?PHP echo $total2; ?>" size="4"readonly="readonly" class="negrito"/></td> <td width="16%"><input name="data_<?PHP echo $login;?>" type="text" value="<?PHP echo $data; ?>" size="10" readonly class="negrito"/></td> <td width="15%"><input name="idescala_<?PHP echo $login;?>" type="text" value="<?PHP echo $idescala; ?>" size="5" readonly class="negrito"/></td> </tr> </table>  
    • Por Geralt96
      Bom dia. Alguém pode me dá uma ajuda pra desenvolver essa questão, por gentileza?

      Aqui está ela: https://projecteuler.net/problem=6

      A soma dos quadrados dos primeiros dez números naturais é: 1² + 2² + ... 10² = 385...
      O quadrado da soma dos dez primeiros números naturais é: (1+2+ ... 10)² = 55² = 3025...
      Portanto, a diferença entre a soma dos quadrados dos primeiros dez números naturais e o quadrado da soma é: 3025 - 385 = 2640.
      Encontre a diferença entre a soma dos quadrados dos primeiros cem números naturais e o quadrado da soma.
    • Por cerejafalante
      Olá pessoal, estou com uma lista de exercício de funções para fazer no visualg mas não sei por onde começar, alguém pode me ajudar fazendo esse exercício? ai eu pego ele de exemplo e faço os outros, obrigada
       
      o exercício é 
      Escreva um programa que calcula área de figuras: quadrado, retângulo, triângulo e círculo. O usuário informa qual forma deseja calcular a área, informa os parâmetros necessários e a área da forma é calculada em uma função. 
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.