PeroVaz

@Simon Viegas Agradeço, mas após de longas 3 horas tentando resolver eu consegui.

Galera, alguém pode rodar esse programa no Visualg 3.0 e me ajudar a resolver esse erro do qual não estou entendendo? É um trabalho de faculdade, disciplina Algoritmos II. PS: ainda não terminei o programa. Algoritmo "APS" //resgistro do campo aluno tipo aluno = registro identificador:inteiro nome:caractere idade:caractere sexo:caractere fimregistro //variaveis globais var pessoa: vetor[1..5] de aluno i:inteiro valordigitado:inteiro opcao:inteiro aux_pes:inteiro resp:inteiro //FUNÇÃO PESQUISA SEQUENCIAL SIMPLES funcao func_pes(x:inteiro):inteiro var resposta,j:inteiro inicio para j de 1 ate 5 faca se(pessoa[j].identificador = x) então resposta <- 1 senao resposta <- 0 fimse retorne resposta fimfuncao //INICIO DO PROGRAMA inicio repita escreval("UNICARIOCA - BANCO DE DADOS") escreval escreval("[1] - ADICIONAR") escreval("[2] - PESQUISAR") escreval("[3] - ORDENAR") escreval("[4] - EXIBIR") escreval("[0] - SAIR") escreval escreva("Opção: ") leia(valordigitado) escolha valordigitado //ADICIONAR USUARIO caso 1 repita i<-i+1 Escreval("UNICARIOCA - BANCO DE DADOS") escreval("ADICIONAR USUARIO") escreval escreva("Digite seu identificador: ") leia(pessoa.identificador) escreva("Digite aqui seu nome: ") leia(pessoa.nome) escreva("Digite aqui sua idade: ") leia(pessoa.idade) escreva("Digite aqui seu sexo: ") leia(pessoa.sexo) escreval escreval("PARABÉNS,USUARIO CADASTRADO!") escreval escreval("[1] - Para continuar adicionando") escreval("[2] - Para voltar ao menu usuario") leia(opcao) limpatela ate opcao = 2 limpatela caso 2 repita escreval("Digite aqui o identificador que deseja pesquisar: ") leia(resp) aux_pes <- func_pes(resp) se aux_pes = 1 então escreva("Usuario já existe") senao escreva("Usario não existe") fimse escreval escreval("[1] - Para continuar pesquisando") escreval("[2] - Para voltar ao menu usuario") leia(opcao) limpatela ate opcao = 2 fimescolha ate valordigitado = 0 fimalgoritmo