Código de Clipper/FiveWin - Invertir Cadena

sin imagen de perfil

Invertir Cadenagráfica de visualizaciones


Clipper/FiveWin

Publicado el 26 de Junio del 2002 por Veronica Ornelas (3 códigos)
6.911 visualizaciones desde el 26 de Junio del 2002
Devuelve una cadena de caracteres en forma inversa.

Versión 1
estrellaestrellaestrellaestrellaestrella(2)

Publicado el 26 de Junio del 2002gráfica de visualizaciones de la versión: Versión 1
6.912 visualizaciones desde el 26 de Junio del 2002
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

Para usar esta funcion en su programa simplemente reemplace el Accept por la parte de codigo que pasara el argumento a la funcion.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
CLEAR
ACCEPT "Teclee una cadena para invertirla: " TO cTexto
 
? cTexto
? "invertido es: "
? invStr( cTexto )
//
FUNCTION invStr( __cTexto )
   LOCAL aText1, cNew, n, cTemp, g, x
   aText1 = ARRAY (LEN ( __cTexto ) )
   cNew = ""
   FOR n = 1 TO LEN( __cTexto )
      cTemp = LEFT( __cTexto, n )
      aText1[ n ] = RIGHT( cTemp, 1 )
   NEXT n
   x = 1
   FOR g = LEN( __cTexto ) TO 1 STEP -1
      cNew =  aText1[ x ] + cNew
      x = x + 1
   NEXT g
RETURN cNew



Comentarios sobre la versión: Versión 1 (2)

24 de Junio del 2005
estrellaestrellaestrellaestrellaestrella
Ha realizado una valoración negativa de este curso.
Responder
5 de Agosto del 2005
estrellaestrellaestrellaestrellaestrella
este codigo es exelente y funciono bien al ejecutar mi ca-clipper...
felicidadez
Responder

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s234