Theusrd

@Simon Viegas poderia me ajudar nesse mesmo programa? me inspirei em vocês, mas estou com problemas no procedimento Excluir. [Nota de moderação: foi criado um tópico novo para tratamento específico do novo código] Tópico de referência: [Fim nota de moderação] Algoritmo "teste" var func :vetor[1..3] de inteiro total :inteiro menu :inteiro procedimento aguardarENTER() var aux :caractere inicio escreva ("Pressione ENTER para continuar") leia(aux) fimProcedimento procedimento Adicionar() inicio limpaTela se (total<=3) entao escreval("ALGORITMO – PROGRAMA RG") escreval("ADICIONAR ELEMENTO") escreva ("RG [",total,"]:") leia(func[total]) total<-total+1 senao escreval("NÃO PODE MAIS CADASTRAR NENHUM FUNCIONÁRIO!") aguardarENTER fimSe fimProcedimento procedimento Pesquisar() var subMenu :inteiro inicio limpaTela repita escreval(" ALGORITMO – PROGRAMA RG") escreval("PESQUISAR ELEMENTO") escreval("[1] Pesquisa Sequencial") escreval("[2] Pesquisar Binária") escreval("[0] Voltar") escreval("Opção:") leia(subMenu) escolha subMenu caso 1 PesquisaSequencial() caso 2 BuscaBinaria() fimEscolha ate (subMenu=0) fimProcedimento procedimento PesquisaSequencial() var num: inteiro inicio escreval ("Digite o RG para pesquisar :") leia(num) total <- 1 enquanto (total < 3) e (func[total] <> num) faca total <- total + 1 fimenquanto se func[total] = num entao escreva ("O RG foi localizado na posição [", total,"]") senao escreva ("O RG Não foi encontrado!!") fimse escreval aguardarENTER fimprocedimento procedimento BuscaBinaria Var pesq,comeco,final,meio:inteiro acha:logico inicio escreva (" Digite o RG para pesquisar: ") leia (pesq) comeco <-1 final <- 3 acha <- falso enquanto (comeco <= final) E (acha= falso) FACA meio <- (comeco + final) div 2 se (pesq = func[meio]) entao acha<- verdadeiro senao se (pesq < func[meio]) entao final <- meio - 1 senao comeco <- meio + 1 fimse fimse fimenquanto se func[meio] = pesq entao escreva(pesq," O RG foi localizado na posição",meio) senao escreva(pesq," O RG Não foi encontrado!!") fimse escreval aguardarENTER fimprocedimento procedimento Ordenar() var subMenus :inteiro inicio limpaTela repita escreval(" ALGORITMO – PROGRAMA RG") escreval("PESQUISAR ELEMENTO") escreval("[1] Método Bubblesort") escreval("[2] Método Inserção Direta") escreval("[3] Método Seleção Direta") escreval("[4] Método Quicksort") escreval("[0] Voltar") escreval("Opção:") leia(subMenus) escolha subMenus caso 1 Bubblesort() caso 2 Mude_lot() caso 3 SelectionSort() caso 4 Quicksort() fimEscolha ate (subMenus=0) fimProcedimento procedimento Bubblesort() var I,J,AUX:INTEIRO inicio PARA J:=3 ATE 1 PASSO -1 FACA PARA I:=1 ATE J-1 FACA SE (func[I] > func[I+1])entao AUX <- func[I] func[I] <- func[I+1] func[I+1] <- AUX FIMSE FIMPARA FIMPARA ESCREVA("RG's ordenados: ") PARA I:=1 ATE 3 FACA ESCREVA(func[I]) FIMPARA fimprocedimento procedimento Mude_lot() var i, j, chave: inteiro inicio para j de 2 ate 3 faca chave <- func[j] i <- j-1 enquanto ((i>0) e (func[i] > chave)) faca func[i+1] <- func[i] i <- i-1 fimenquanto func[i+1] <- chave fimpara para i de 1 ate 3 faca escreval(func[i]) fimpara fimprocedimento procedimento SelectionSort() var i, j:inteiro min, aux:inteiro inicio para i de 1 ate total-1 faca min <- i para j de i+1 ate total-1 faca se func[j] < func[min] entao fimSe fimPara se min<>i entao aux <- func[i] func[i] <- func[min] func[min]<- aux fimSe fimPara escreva("RG's ordenados: ") para i:=1 ate total-1 faca escreva(func[i]) fimPara fimProcedimento procedimento Quicksort() fimprocedimento PROCEDIMENTO Excluir() var procura: caractere achou : logico apaga : inteiro i :INTEIRO inicio Limpatela Escreva("| Digite o RG que deseja excluir.: ") Leia(total) Escreval("|--------------------------------|") achou <- falso Para I de 1 ate 3 Faca Se (func[total] = total) entao achou <- verdadeiro interrompa FimSe FimPara Se achou entao Limpatela Escreval("| Confirma a exclusão do registro abaixo? ") Escreval("|-----------------------------------------------------------------") Escreval("| Cód......: ", func[total]) Escreval("|----------------------------------------------------------------|") Escreva("| [1] Sim [2] Não]") Leia(apaga) Se (apaga = "1") entao func[total] = Escreval("| Registro Excluído com Sucesso |") Escreval("|----------------------------------------------------------------|") FimSe SeNao Limpatela Escreval("| Nenhum Registro encontrado para Deleção |") Escreval("|------------------------------|") FimSe fimprocedimento INICIO total<-1 repita limpaTela escreval("ALGORITOMO CADASTRANDO – PROGRAMA RG") escreval("[1] Adicionar ") escreval("[2] Pesquisar ") escreval("[3] Ordenar ") escreval("[4] Remover ") escreval("[0] Sair ") escreval("") escreva ("Opção:") leia(menu) escolha menu caso 0 limpatela escreval("Desconectado") escreval("aperte ESC para sair!") caso 1 Adicionar() caso 2 Pesquisar() caso 3 Ordenar() caso 4 Excluir() fimEscolha ate(menu=0) fimAlgoritmo