AYUDA URGENTE
Necesito saber como se realizan os siguientes programas, porfavor es una tarea, y la necesito, los programas son los siguientes:
1) que permitainvertir una cadena, por ejemplo:
antes: HOLA despues: ALOH
2) Que elimine los espacios pero sin usar trim, ltrim ni rtrim
LES AGRADESCO UNA AYUDA RAPIDA, POR FAVOR..
1) que permitainvertir una cadena, por ejemplo:
antes: HOLA despues: ALOH
2) Que elimine los espacios pero sin usar trim, ltrim ni rtrim
LES AGRADESCO UNA AYUDA RAPIDA, POR FAVOR..
EN el primero de los casos lo mas facil es el metodo de la
burbuja que deberias conocer o que encontraras facilmente
en cualquier lado.
En cuanto al segundo problema la solucion es hacer un for que
reconozca que cada letra que es distinta de ' '
no sea eliminada.
burbuja que deberias conocer o que encontraras facilmente
en cualquier lado.
En cuanto al segundo problema la solucion es hacer un for que
reconozca que cada letra que es distinta de ' '
no sea eliminada.
otra format
dim S as string
for i=1 to len(cadena a invertir)
s=mid(cadena,i,1) & s
next i
o
for i=len(cadena) to 1 step -1
s=s & mid(cadena,i,1)
next i
que para el caso es lo mismo
y para borarr los espacios en blanco
for i=1 to len(cadena)
if mid(cadena,i,1)<>" " then
s=s& mid(cadena,i,1)
end if
next i
o sustituye mid(cadena,i,1)=" " por
asc(mid(cadena,i,1))=32
que es el numero que reprecenta al espacio en blanco
dim S as string
for i=1 to len(cadena a invertir)
s=mid(cadena,i,1) & s
next i
o
for i=len(cadena) to 1 step -1
s=s & mid(cadena,i,1)
next i
que para el caso es lo mismo
y para borarr los espacios en blanco
for i=1 to len(cadena)
if mid(cadena,i,1)<>" " then
s=s& mid(cadena,i,1)
end if
next i
o sustituye mid(cadena,i,1)=" " por
asc(mid(cadena,i,1))=32
que es el numero que reprecenta al espacio en blanco
