Palindromo
james
19 de Noviembre del 2005
Hola tengo un gran problema, tengo que verificar si una palabra es palindromo y no se ni siquiera por deonde empezar, he buscado informacion pero solo encuanetro en lenguaje de C\C++ y necesito en Visual FoxPro si me ayudan me dejaran que me gradue asi que porfavor ayudenme
gabrield
19 de Noviembre del 2005
Estimado James:
Esta procedimiento recibe como parámetro una cadena. Si dicha cadena es un palÃndromo, devuelve .t., si no devuelve .f.
Suerte.
PROCEDURE Palindromo
PARAMETERS sPalabra
sPalabra = UPPER(ALLTRIM(sPalabra))
sPalabra2 = ""
nLargo = LEN(sPalabra)
FOR i = 0 TO nLargo - 1
sPalabra2 = sPalabra2 + SUBSTR(sPalabra, nLargo - i, 1)
ENDFOR
IF sPalabra == sPalabra2
RETURN .t.
ELSE
RETURN .f.
ENDIF
ENDPROC
Para usarlo:
if Palindromo("Neuquen")
MESSAGEBOX("Es un palindromo")
else
messagebox("No es un palindromo")
endif
Esta procedimiento recibe como parámetro una cadena. Si dicha cadena es un palÃndromo, devuelve .t., si no devuelve .f.
Suerte.
PROCEDURE Palindromo
PARAMETERS sPalabra
sPalabra = UPPER(ALLTRIM(sPalabra))
sPalabra2 = ""
nLargo = LEN(sPalabra)
FOR i = 0 TO nLargo - 1
sPalabra2 = sPalabra2 + SUBSTR(sPalabra, nLargo - i, 1)
ENDFOR
IF sPalabra == sPalabra2
RETURN .t.
ELSE
RETURN .f.
ENDIF
ENDPROC
Para usarlo:
if Palindromo("Neuquen")
MESSAGEBOX("Es un palindromo")
else
messagebox("No es un palindromo")
endif
gabrield
19 de Noviembre del 2005
Hay una lÃnea con error. La cuarta linea debe ser
sPalabra2 = "" (en lugar de sPalabra2 = ""
sPalabra2 = "" (en lugar de sPalabra2 = ""