Aleatorio02

@devair1010 Valeu ai cara! ajudou dms! 

Agora sim está funcionando. Na verdade eu até ja  tinha tentado usar o PARA do mesmo jeito que você usou mas n]ao estava conseguindo fazer funcionar porque nunca tinha ouvido falar desse comando INTERROMPA, é bem interessante a vai ajudar muito agora. 

E valeu também por ja me falar como corrigir o cadastro, eu tava querendo fazer isso mas ainda não tinha certeza de como faria, pretendia pesquisar sobre mais tarde, mas você me poupou tempo e eu consegui entende, então muito obrigado!

Boa noite. Então, eu estou aprendendo programação e resolvi começar pelo visualG, e agora estava tentando aprender sobre os vetores. Para isso queria criar um tipo de sistema que tivesse um menu principal com as opções de 1- cadastrar por índice, 2- mostrar por índice e 3- procurar por nome. Infelizmente não estou conseguindo fazer a 3° opção funcionar e não sei o que estou fazendo errado. Gostaria de saber se alguém pode me ajudar com isso. Desde já, agradeço.

Código:

Algoritmo "semnome"

Var
 opcao: inteiro
 nomes: vetor [1..5] de caractere
 idade: vetor [1..5] de inteiro
 end: vetor [1..5] de caractere
 indice: inteiro
 contador: inteiro
 tmp: caractere

procedimento timeer
Inicio
      escreval ("Pressione qualquer tecla p/ continuar")
      leia (tmp)
fimprocedimento
procedimento menu_principal
Inicio
      limpatela
      para contador de 1 ate 22 faca
           escreva("=")
      fimpara
      escreval ("")
      escreval ("*** Menu Principal ***")
      para contador de 1 ate 22 faca
           escreva("=")
      fimpara
      escreval ("")
      escreval ("1 - Cadastrar por índice")
      escreval ("2 - Mostrar por índice")
      escreval ("3 - Procurar por nome")
      escreval ("4 - Sair")
      escreval ("Escolha uma opção: ")
fimprocedimento
procedimento menu_cadastrar
Var opcao1: inteiro  indice: inteiro
Inicio
      limpatela
      escreval ("Cadastrar pelo índice")
      para indice de 1 ate 5 faca
      escreval ("Digite nome: ")
      leia (nomes[indice])
      escreval ("Digite idade: ")
      leia (idade[indice])
      escreval ("Digite endereço: ")
      leia (end[indice])
      escreval ("")
      escreval ("O índice cadastrado é:")
      escreval ("Nome: ",nomes[indice])
      escreval ("Idade: ",idade[indice])
      escreval ("Endereço: ",end[indice])
      escreval ("")
      fimpara
      timeer
fimprocedimento
procedimento menu_mostrar
Inicio
      limpatela
      para indice de 1 ate 5 passo 1 faca
           escreval ("Nome:", nomes[indice])
           escreval ("Idade:", idade[indice])
           escreval ("Endereço:", end[indice])
           escreval ("")
      fimpara
timeer
fimprocedimento
procedimento menu_procurar
Var nome: caractere
Inicio
      limpatela
      escreval ("Digite que está procurando:")
      leia (nome)
      se (nome = nomes[indice]) então
         escreval("")
         escreval("O indice correspondente é:")
         escreval("")
         escreval("Nome:", nomes[indice])
         escreval("Idade:", idade[indice])
         escreval("Endereço:", end[indice])
      senao
           escreval("Usuário não encontrado!")
      fimse
timeer
fimprocedimento
Inicio
      enquanto (opcao <> 4) faca
               menu_principal
               leia (opcao)
               escolha (opcao)
               caso 1
                    menu_cadastrar
               caso 2
                    menu_mostrar
               caso 3
                    menu_procurar
               caso 4
                    escreval ("Finalizando...")
               fimescolha
      fimenquanto
Fimalgoritmo

@luscas Realmente era isso mesmo, agora o código está funcionando certinho muito obrigado ai!

@devair1010 valeu pela dica! eu vou tentar criar uns outros códigos e vou usar "randi" para ir testando, obrigado mesmo.

eu comecei agora na programação e resolvi começar com VisualG, por isso estava tentando testar algumas coisas, no meio disso tentei criar um "minijogo" mas por algum motivo no final quando peço para ele escrever o resultado, o resultado não aparece, eu gostaria de saber se alguém pode me dizer o motivo disso acontecer

o código :

Algoritmo "semnome"

Var
   num, num_aleat: inteiro
   resultado: caractere
   jogador: caractere
   computador: caractere
Inicio
    escreval ("escolha um número entre 0 e 50: ")
    leia (num)
    escreval ("número escolhido pelo computador: ")
    aleatorio 1, 50
    leia (num_aleat)
    aleatorio off
    
    escreval
    se num_aleat > num então
       resultado <- computador ganhou
    senao
         se num_aleat < num então
         resultado <- jogador ganhou
         fimse
    fimse
    
    escreva ("Resultado: ", resultado)