Este programa de pseudocódigo Visualg pretende implementar a função remover
Sintaxe: remover(cad, indice, quantidade)
O argumento cad pode ser qualquer string. A posição do índice (pos) especifica de qual posição do strig original começará a ser removido. (base 1)
quantidade é o comprimento da substring a ser extraída da string original mais longa
Exemplo: A instrução Escrever (eliminar(str, indice, quantidade));
quando indice
<- 13 e quantidade
<- 3 e a variável cad
carregada com a Caractere
"Programação 1" deve escrever a string "Programação".
O programa compila, mas exibe exatamente o mesmo texto inserido nele
Algoritmo "semnome"
Var
indice, quantidade : Inteiro
cad, stringresultante : Caractere
tam, i : Inteiro
Funcao remover (cad: caractere; indice, quantidade: inteiro): Caractere
inicio
tam <- compr(cad)
stringresultante <- ""
// Copia el inicio de la cadena
Para i de 1 ate quantidade faca
stringresultante <- copia(cad,i,i)
FimPara
Enquanto indice <= tam Faca
Se indice + quantidade >= tam Entao
stringresultante <- copia(cad,indice + quantidade,indice + quantidade)
Fimse
indice<-indice+1;
FimEnquanto
Retorne cad
FimFuncao
Inicio
Escreval("Digite a string : ")
Leia (cad)
Escreval("Insira a posição para iniciar a extração: ")
Leia (indice)
Escreval("Digite o comprimento da substring: ")
Leia (quantidade)
stringresultante <- remover(cad, indice, quantidade)
Escreva (stringresultante)
Fimalgoritmo