Código de Clipper/FiveWin - Invertir Cadena

sin imagen de perfil

Invertir Cadenagráfica de visualizaciones


Clipper/FiveWin

estrellaestrellaestrellaestrellaestrella(2)
Publicado el 26 de Junio del 2002 por Veronica Ornelas
6.747 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.748 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
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s234