Pascal/Turbo Pascal - programa que dada una cadena de carácter y un párrafo, elimine la cadena del párrafo.

   
Vista:

programa que dada una cadena de carácter y un párrafo, elimine la cadena del párrafo.

Publicado por daniel (1 intervención) el 07/06/2013 00:23:00
Hacer un programa que dada una cadena de carácter y un párrafo, elimine la cadena del párrafo.
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

programa que dada una cadena de carácter y un párrafo, elimine la cadena del párrafo.

Publicado por ramon (2072 intervenciones) el 10/06/2013 14:00:47
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
{Mira esto te permite borrar cualquier palabra solo tienes que entrar
la que quieres borrar la cadena texto es la que presenta puedes borrar
lo que quieras de ella.}
 
program cadena;
 uses
    crt;
  const
    texto : string = ('Papiro Tenia Mucho Tiempo');
  var
    caden : string;
    anula : string[40];
    paso, i, x  : integer;
  begin
      clrscr;
      writeln;
      writeln('  La Frase Es Asi : ',texto);
      writeln;
      write('  Entre Frase A Anular Del Texto : ');
      readln(anula);
      repeat
           if upcase(texto[i]) = upcase(anula[1]) then
           begin
              for x := 1 to length(anula) do
              begin
              if upcase(texto[(i - 1) + x]) = upcase(anula[x]) then
              paso := paso + 1;
              end;
              if paso = length(anula) then
              begin
                 delete(texto,i,paso);
                 i := i + paso - 1;
                 paso := 0;
              end;
           end;
       i := i + 1;
       until i > length(texto);
       writeln;
       writeln('  La Frase Queda Asi : ',texto);
       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