Помогите с решением. Никак не могу понять как ее делать , и через 'Палиндром" не получается , мне нужно чисто со Строковыми данными работать. Сама задача: " В заданном тексте найти все пары слов из которых одно является обращением другого". Заранее благодарен.
взял первое слово, перевернул, проверил, есть ли оно в строке. если есть - вывел.
взял следующее...
как разбивать на слова - см. в прилепленной теме
Говорить легко,а вот сделать непросто, если не понимаешь как делать, а это уже совсем другое.
Что конкретно не получается ?
http://forum.pascal.net.ru/index.php?showtopic=6972
Не пойму как в заданном тексте найти все пары слов, и еще вопрос, а зачем мне надо разбиение на слова если мне надо определить слова из которых одно является обращением другого?
Разбил на слова в массив, потом:
for i:=1 to n-1 do
for j:=i+1 to n do
if words[i]=polyndrom(words[j]) then writeln (words[i],'-',words[j]);
А как поиском, не подскажешь.
А через polyndrom это как в строках делать
http://forum.pascal.net.ru/index.php?act=Search&f=12
Поиск не дал результатов.Может кто нибудь знает как эту задачу решить.
неужели?
http://forum.pascal.net.ru/index.php?showtopic=1636&st=0&p=13296entry13296
Не получилось через polyndrom там файлы,а мне нужно с использование "Строк"
function palindrom(x:string):string;
Из той темы тебе нужна только функция palindrom - оно слово переворачивает, остальное у тебя уже есть.