Pascal/Turbo Pascal - string pertenece a otro string

   
Vista:

string pertenece a otro string

Publicado por Stephan (2 intervenciones) el 02/11/2007 15:49:08
tengo que hacer este programa per lo he provado con "in" y no compila:
-Dados 2 strings, decir true/false en función de que el último caracter del primer string,
independientemente de mayúsculas i minúsculas, este dentro del segundo string.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:string pertenece a otro string

Publicado por Mariano (57 intervenciones) el 02/11/2007 17:30:51
Realmente, no me quedo muy claro lo que preguntas,pero supongo q es asi lo que queres
function BuscaCadena(cadena:string; cadena2:string):boolean;
var
existe:boolean;
long:byte;
i:byte;
a:char;
begin
a:=upcase(cadena2[length(cadena2)]);
existe:=false;
long:=length(cadena);
for i:=1 to long do begin
cadena[i]:=upcase(cadena[i]);
if cadena[i] = a then
existe:=true
end;
BuscaCadena:=existe
end;

O sino la otra posibilidad, que en vez de pasar otra cadena, pases un caracter como parametro, y dps cuando lo invoques hagas BuscaCadena(cadena1,cadena2[8])

Espero que sea lo q necesitabas, sino volve a preguntar :)

Un abrazoo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:string pertenece a otro string

Publicado por Stephan (2 intervenciones) el 02/11/2007 18:32:28
Hola mariano gracias por echarme un cable pero creo que no es exactamente lo que yo busco. Estoy empezando y por ejemplo lo del "for to do" aun no lo he dado en clase.
A mi me piden que de dos strings compruebe si el segundo contiene la ultima letra del primer string. Ej: casA y Arbol. la ultima letra de la primera palabra aparece en la segunda palabra. Yo lo he intentado y me ha salido una cosa asi, pero no funciona:


Program s13;
uses crt;
var v1,v2:string;

begin
readln(v1);
readln(v2);
if v1[length(v1)] in v2 then writeln('la ultima letra de la primera palabra pertenece a la segunda palabra') else writeln('no pertenece...');

readkey;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:string pertenece a otro string

Publicado por Mariano (57 intervenciones) el 02/11/2007 21:07:01
AHhh! mucho mas simple entonces

begin
readln(v1);
readln(v2);
if v1[length(v1)] = v2[1] then
writeln( 'se encuenra en la segunda palabra')
else
writeln('No se encuentra');
readln
end.

Un abrazoo!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:string pertenece a otro string

Publicado por Diego Romero (997 intervenciones) el 05/11/2007 15:19:13
Solo para explicar por qué falla el código que has posteado.

El operador "in" no sirve para cadenas, sirve para conjuntos (set of). Devuelve "true" si un elemento está dentro de un conjunto. Si no entiendes esto, no te preocupes, más adelante seguramente te lo enseñarán ;).
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar