Remplaza un caracter a buscar por otro
¿Has encontrado un error? ¿Tienes la solución? Deja tu correción ;-)
Antes de comentar: Gran parte de los ejercicios propuestos no tienen librerías debido a que Wordpress las eliminó al verlas como etiquetas HTML.
Si sabes/tienes/conoces las librerías que hacen falta, déjalo en los comentarios. Y lo mas importante: Todos los ejemplos
fueron realizados por estudiante con únicamente conocimiento básico del lenguaje, no de programación.
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 | {-Victor De la Rocha}
{-Algoritmia@groups.msn.com}
{-www.myalgorithm.com}
uses
crt;var
c,posicion:integer;
cadena:string[40];
carac,carac2:char;
begin ClrScr;
Write('Frase: ');Readln(cadena);
Write('Caracter a remplazar: ');Readln(carac);
Write('Caracter por cual se remplazara: ');Readln(carac2);
if pos(carac,cadena)>0 then
begin
repeat
posicion:=pos(carac,cadena);
delete(cadena,posicion,1); insert(carac2,cadena,posicion);
until pos(carac,cadena)=0;
end;
Write(cadena); ReadKey;
end. |
Frase:Victor Manuel de la Rocha
Caracter a remplazar: a
Caracter por cual remplazar: s
Victor Msnuel de ls Rochs
Punto importante: Si vas a sugerir un segmento de código en algún lenguaje debes hacerlo así:
- Si es lenguaje C <code lang="c">Código en C</code>
- Si es lenguaje Pascal <code lang="pascal">Aquí dentro el código de Pascal</code>.
De esta manera el código coloreas el código.
Deja un comentario
