Visual Basic.NET - Capicua?

 
Vista:

Capicua?

Publicado por Esteban (15 intervenciones) el 02/08/2004 23:47:27
como hago un programa q me analice un número de cuatro digitos, q lo analice y me diga si es o no capicua.
gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Capicua?

Publicado por Alfredo (62 intervenciones) el 03/08/2004 00:35:37
hola
esta es una forma sencilla:
defines dos variables

digamos que aux y aux2:
aux = Mid(tunumero, 1, 1)
aux2 = Mid(tunumero, 4, 1)
If aux = aux2 Then
aux = Mid(tunumero, 2, 1)
aux2 = Mid(tunumero, 3, 1)
If aux = aux2 Then
MsgBox("Capicua")
Else
MsgBox("No Capicua")
End If
Else
MsgBox("No Capicua")
End If

suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Capicua?

Publicado por Carlos Escribano Rey (59 intervenciones) el 05/08/2004 15:50:42
Y si quieres que sirva para cualquier longitud, te vale con recorrer la cadena de los extremos al centro e ir comprobando elemento a elemento (que sean iguales).
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar