Pascal/Turbo Pascal - borrar espacios de una cadena

   
Vista:

borrar espacios de una cadena

Publicado por Magic_p10 (1 intervención) el 14/12/2007 12:51:40
ola me podeis ayudar intanto eliminar los espacios de una cadena
tengo lo siguiente:
var s1, s2:string; i:byte;
begin
write ('introduce una cadena de caracteres: ');

writeln´'el valor de s2 es ', s2);
end.
agradeceria muxo la ayuda
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:borrar espacios de una cadena

Publicado por Diego Romero (997 intervenciones) el 14/12/2007 13:13:29
Ignoro qué tiene que ver el pedazo de código que has puesto pero bueh, a lo nuestro entonces:

var
Cadena: string;

procedure EliminarEspacios(var C: string);
var
i: integer;
begin
i:=pos(' ',C);
if i = 0 then Exit;
delete(C,i,1);
EliminarEspacios(C);
end;

begin
Write('Ingrese una oración: ');
ReadLn(Cadena);
EliminarEspacios(Cadena);
Write('La oración es: ', Cadena);
ReadLn;
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