Public Sub palindrom(text)
p = " "
ksl = 0
nsl = ksl + 1
n = InStr(nsl, text, " ", 1)
Do
ksl = n - 1
l = Mid(text, nsl, ksl - nsl + 1)
a = l
k = Len(l)
For i = k To 1 Step -1
p = p & Mid(a, i, 1)
Next i
f = StrComp(a, p, 1)
If a = StrReverse(a) Then
Form1.LblПалиндромы = Form1.LblПалиндромы & a & " "
End If
p = " "
nsl = ksl + 2
n = InStr(nsl, text, " ", vbTextCompare)
Loop While n > 0
Call rezyltat(Form1.LblПалиндромы, "Результат.txt")
End Sub
Переделать программу с VB на BCB6
Задание такое:
Имеется большой словарь русских слов, найти в нем слова палиндромы (перевертыши)одинаково читающиеся как слева направо, так и справа налево (шалаш, ада, алла).
Вот моя программка:
Код:
==Помогите пожайлуста==
P.s\\С уважением Аннечка