09-17-2008, 10:43 PM
'Este programa comprueba si un numero / texto es capicua
'This program verifies whether a number / reads capicua
'lrcvs 15.09.08
'Examples /Ejemplos:
'"1234554321" / "abcddcba" = Yes / Si = capicua
'"1279256486" / "dfsafdas" = Not / No <>Â capicua
CLS
'z$ = "0123456789876543210" 'Number$ / text to verify
INPUT "Text / Number to verify = "; z$
PRINT z$
PRINT
l = LEN(z$)
FOR n = 1 TO l
a$ = MID$(z$, n, 1)
b$ = MID$(z$, (l + 1) - n, 1)
'PRINT a$, b$
IF a$ <> b$ THEN PRINT "No es capicua / Not is capicua": BEEP: GOTO 20
NEXT n
PRINT "Si, es capicua / Yes, is capicua"
20 :
END
'This program verifies whether a number / reads capicua
'lrcvs 15.09.08
'Examples /Ejemplos:
'"1234554321" / "abcddcba" = Yes / Si = capicua
'"1279256486" / "dfsafdas" = Not / No <>Â capicua
CLS
'z$ = "0123456789876543210" 'Number$ / text to verify
INPUT "Text / Number to verify = "; z$
PRINT z$
l = LEN(z$)
FOR n = 1 TO l
a$ = MID$(z$, n, 1)
b$ = MID$(z$, (l + 1) - n, 1)
'PRINT a$, b$
IF a$ <> b$ THEN PRINT "No es capicua / Not is capicua": BEEP: GOTO 20
NEXT n
PRINT "Si, es capicua / Yes, is capicua"
20 :
END