Funciones Y Procedimientos Para Cadenas

Si se quieren unir dos cadenas hasta que algo las separe, se recurre al operador mas +, el proceso funciona exactamente como una suma la única limitante es que en caso de ser mayor la longitud resultante de la suma que la longitud que pueda manejar la variable en que se almacenará se truncarán los caracteres sobrantes. Ejemplo:

Program suma_cadenas;

Uses crt;

Var

Hombre, Mujer: string[20];

Enlace:string[3];

Matrimonio:string[40];

Begin

Clrscr;

Hombre:= 'ADAN';

Mujer:= 'EVA';

Enlace:=' Y ';

Matrimonio:= Hombre + enlace +Mujer;

Writeln('Esposo : ',Hombre);

Writeln('Mujer : ',Mujer);

Writeln('Y con el uso del operador +, yo los declaro : ',Matrimonio);

Readln;

End.

FUNCIONES

Esta trabaja de manera similar al operador +, la suma de las cadenas no deberá sobrepasar la longitud que la variable, a la cual se asignará dicha suma; Ejemplo:

Program concatena_cadenas;

Uses crt;

Var

Hombre, Mujer: string[20];

Enlace:string[3];

Matrimonio:string[40];

Begin

Clrscr;

Hombre:= 'ADAN';

Mujer:= 'EVA';

Enlace:=' Y ';

Matrimonio:= concat(Hombre, enlace, Mujer);

Writeln('Esposo : ',Hombre);

Writeln('Mujer : ',Mujer);

Writeln('Y con el uso del operador +, yo los declaro: ',Matrimonio);

Readln;

End.

Pos nos sirve para localizar una determinada cadena dentro de otra, en otras palabras para verificar si una cadena es subcadena de otra segunda.

Los parámetros que requiere son: la cadena que se buscará y la cadena donde se buscará la primera:

Pos (Cadena1, Cadena2);

Cuando encuentra la cadena la función devuelve su posición inicial, en caso de que no la encuentre devuelve el valor de 0.

Ejemplo:

Program Encuentra_posiciones;

Uses crt;

Var

Hombre, Mujer: string[20];

Enlace:string[3];

Matrimonio:string[40];

Begin

Clrscr;

Hombre:= 'ADAN';

Mujer:= 'EVA';

Enlace:=' Y ';

Matrimonio:= concat(Hombre, enlace, Mujer);

Writeln(Pos('ADAN', Matrimonio);

Writeln(Pos('EVA', Matrimonio);

Readln;

End.

 

El procedimiento Insert sirve para insertar una cadena dentro de otra en alguna posición determinada.

Sintaxis:

Insert (Cadena1, Cadena2, Posición)

Donde Cadena1 es la que se insertará, Cadena2 es donde se insertará y Posición es el lugar donde se insertará. El parámetro Posición debe ser de tipo entero.

Program Manejo_de_Insert;

Uses crt;

Var

Hombre, Mujer, Hijo: string[20];

Enlace:string[3];

Matrimonio:string[80];

Begin

Clrscr;

Hombre:= 'ADAN';

Mujer:= 'EVA';

Enlace:=' Y ';

Hijo:=' ,SU HIJO ABEL';

Matrimonio:= concat(Hombre, enlace, Mujer);

Writeln(insert(Hijo, Matrimonio,5);

Readln;

End.

 

Este procedimiento elimina un determinado número de caracteres de una cadena. Su sintaxis es:

Delete (Cadena, Inicio, Número)

Cadena es la variable en la cual se eliminarán los caracteres, Inicio es la posición del primer caracter a eliminar y Número es la cantidad de caracteres que se borrarán; ejemplo:

Program Manejo_de_Delete;

Uses crt;

Var

Hombre, Mujer, Hijo: string[20];

Enlace:string[3];

Matrimonio:string[80];

Begin

Clrscr;

Hombre:= 'ADAN';

Mujer:= 'EVA';

Enlace:=' Y ';

Hijo:=' ,SU HIJO ABEL';

Matrimonio:= concat(Hombre, enlace, Mujer);

Writeln(insert(Hijo, Matrimonio,5);

Writeln(delete(Matrimonio,7,8);

Readln;

End.