Определить, является ли введенная фраза палиндромом
Категория: Basic
2011-08-21 09:56:52
Палиндром — число (например, 404), буквосочетание, слово или текст (а роза упала на лапу Азора), одинаково читающееся в обоих направлениях.
code: #basic
- LINE INPUT "Кандидат в палиндромы? "; p$
- l$ = "абвгдежзийклмнопрстуфхцчшщъыьэюя"
- u$ = "АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ"
- m$ = " :,.+-;*?/\|~'`!@#$^&()[]{}%=" + CHR$(34)
- FOR t = 1 TO LEN(p$)
- q$ = MID$(p$, t, 1)
- ln = INSTR(l$, q$)
- IF ln > 0 THEN q$ = MID$(u$, ln, 1) ELSE IF INSTR(m$, q$) > 0 THEN q$ = ""
- a1$ = a1$ + q$: a2$ = q$ + a2$
- NEXT
- IF a1$ = a2$ THEN PRINT "Палиндром!" ELSE PRINT "Не палиндром."
Поделиться: