Código de Clipper/FiveWin - Invertir Cadena

Invertir Cadenagráfica de visualizaciones


Clipper/FiveWin

estrellaestrellaestrellaestrellaestrella(2)
Publicado el 26 de Junio del 2002 por Veronica Ornelas
6.267 visualizaciones desde el 26 de Junio del 2002. Una media de 14 por semana
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.268 visualizaciones desde el 26 de Junio del 2002. Una media de 14 por semana
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)

cheq571
24 de Junio del 2005
estrellaestrellaestrellaestrellaestrella
Ha realizado una valoración negativa de este curso.
Responder
carlos alfonso
05 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

http://lwp-l.com/s234