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)