Visualg procedimento

anonymouatour · 24 de novembro de 2016

Estou tentando colocar este procedimento no meu algoritmo para remover os rgs mas apresenta um error e n consigo achar alguem poderia me ajudar? O error sempre cai na func<-""

procedimento Excluir()
var
{linha : inteiro //vetor}
i:inteiro
procura: caractere
achou : logico
apaga : caractere
inicio
Limpatela
//Cabecalho
Escreva("Digite o rg que deseja excluir.: ")
Leia(Procura)
Escreval("|---------|")
achou <- falso
Para i de 1 ate 100 Faca
Se (func[i] = Procura) então
achou <- verdadeiro
interrompa
FimSe
FimPara
Se achou então
Limpatela
//Cabecalho
Escreval("|	Confirma a exclusão do rg abaixo?	")
Escreval("|-----------------------------------------------------------------")
Escreval("| RG....: ", func[i])
Escreva("| [S] Sim [N] Não]")
Leia(apaga)
Se (apaga = "S") então
func[i] <- ""

Limpatela
//Cabecalho
Escreval("|	Registro Excluído com Sucesso	|")
Escreval("|----------------------------------------------------------------|")
FimSe
SeNao
Limpatela
//Cabecalho
Escreval("|	Nenhum Registro encontrado para Exclusão	|")
Escreval("|----------------------------------------------------------------|")
FimSe
fimprocedimento

adicionado 16 minutos depois

refiz e percebi q ele está removendo apenas o primeiro numero da posicao do vetor o que faço para q ele remova todos?

procedimento Excluir()
var
{linha : inteiro //vetor}
i:inteiro
procura: caractere
achou : logico
apaga : inteiro
inicio
Limpatela
//Cabecalho
Escreva("Digite o rg que deseja excluir.: ")
Leia(Procura)
Escreval("|---------|")
achou <- falso
// para i de 1 ate 100 faca
 para total de 1 ate 100 faca
{Para total de 1 ate 100 Faca  }
Se (func[total] = Procura) então
achou <- verdadeiro
interrompa
FimSe
FimPara
Se achou então
Limpatela
//Cabecalho
Escreval("|	Confirma a exclusão do rg abaixo?	")
Escreval("|-----------------------------------------------------------------")
Escreval("| RG....: ", func[total])
//Escreva("| [S] Sim [N] Não]")
//Leia(apaga)
Se (apaga = "S") então
func[total] <- apaga

Limpatela
//Cabecalho
Escreval("|	Registro Excluído com Sucesso	|")
Escreval("|----------------------------------------------------------------|")
FimSe
fimse

//SeNao
Limpatela

fimprocedimento

anonymouatour · 25 de novembro de 2016

ja conseguir fazer n precisam comentar

DiF · 26 de novembro de 2016

@anonymouatour Posta aqui como conseguiu resolver o problema!

DiF · 1 de dezembro de 2016

@anonymouatour Peço novamente por gentileza que poste aqui como resolveu o problema

anonymouatour · 2 de dezembro de 2016

Assim que tiver tempo irei postar pois estou fazendo um monte de projetos agora e ainda vou querer adicionar mais algumas coisinhas depois para brincar um pouco mais nesse algoritmo, espero que me compreenda abs

anonymouatour · 12 de dezembro de 2016

Aqui o excluir tava fazendo prova sem tempo


procedimento Excluir()

var

i:inteiro

procura: inteiro

achou : logico

apaga : INTEIRO

 

inicio

Limpatela

Escreva("Digite o RG que deseja excluir.: ")

Leia(procura)

Escreval("|---------|")

achou <- falso

para i de 1 ate 100 faca

Se (func = procura) então 

achou <- verdadeiro 

interrompa 

FimSe 

FimPara 

Se achou então 

Limpatela 

Escreval("|         Confirma a exclusão do RG abaixo?       ") 

Escreval("|-------------------------------------") 

Escreval("| RG....: ", func) 

func <- apaga 

Escreval("| RG....: ", func) 

Limpatela 

escreval("|        Registro Excluído com Sucesso |") 

fimse 

Limpatela 

escreval 

aguardarENTER 

fimprocedimento