Eu fiz esse código mas a parte de excluir não funciona corretamente, onde poderia estar o erro?
Algoritmo "Exclusao_Funcionarios"
tipo funcionario = registro
nome: caractere
idade: inteiro
fimregistro
Var
opcao: inteiro
sair : logico
confirmacao_sair, confirmacao_novo_usuario, nome_a_procurar, nome_excluir : caracter
confirmacao_exclusao_usuario :caracter
funcionarios: vetor[0..9] de funcionario
linha: inteiro
controle_cadastro: inteiro
conta_vazio: inteiro
procedimento cadastrar_usuario ()
inicio
escreval("Digita o nome e idade:")
para linha de controle_cadastro ate 9 passo 1 faca
escreva("Nome:")
leia(funcionarios[linha].nome)
escreva("Idade:")
leia(funcionarios[linha].idade)
controle_cadastro <- controle_cadastro + 1
escreva("Deseja cadastrar outro usuario(S/N):")
leia (confirmacao_novo_usuario)
se (confirmacao_novo_usuario = "N") ou (confirmacao_novo_usuario = "n") entao
limpatela
interrompa
fimse
fimpara
fimprocedimento
procedimento listar_funcionarios ()
inicio
para linha de 0 ate 9 passo 1 faca
se (funcionarios[linha].nome = "") entao
interrompa
fimse
escreva("Nome: ")
escreva(funcionarios[linha].nome)
escreva(" Idade: ")
escreval(funcionarios[linha].idade)
fimpara
fimprocedimento
procedimento limpar_funcionarios ()
inicio
para linha de 0 ate 9 passo 1 faca
funcionarios[linha].nome <- ""
funcionarios[linha].idade <- 0
fimpara
fimprocedimento
procedimento exclui_funcionarios ()
inicio
funcionarios[controle_cadastro-1].nome <- ""
funcionarios[controle_cadastro-1].idade <- 0
fimprocedimento
funcao verificar_vazio():logico
inicio
conta_vazio <- 0
para linha de 0 ate 9 passo 1 faca
se funcionarios[linha].nome <> "" entao
conta_vazio <- conta_vazio + 1
fimse
fimpara
se conta_vazio = 0 entao
retorne VERDADEIRO
senao
retorne FALSO
fimse
fimfuncao
procedimento sair ()
inicio
escreval("voce realmente deseja sair? (S/N)")
leia(confirmacao_sair)
se (confirmacao_sair = "S") ou (confirmacao_sair = "s") entao
sair <- VERDADEIRO
fimse
fimprocedimento
Inicio
controle_cadastro <- 0
enquanto sair = FALSO faca
escreval("Digite a opção desejada:")
escreval("1 - Cadastrar novo usuário")
escreval("2 - Listar todos os usuários cadastrados")
escreval("3 - Limpar DB")
escreval("4 - Excluir usuário")
escreval("5 - Sair do sistema")
escreval("6 - Verificar vazio")
escreva("Opção selecionada:")
leia(opcao)
escolha opcao
caso 1
cadastrar_usuario()
caso 2
listar_funcionarios()
caso 3
limpar_funcionarios()
caso 4
exclui_funcionarios()
caso 5
sair()
caso 6
escreval(verificar_vazio())
outrocaso
escreval("Nenhuma opcão selecionada")
fimescolha
fimenquanto
Fimalgoritmo