IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Строки, опять строки "Надоели уже"
m@xvel
сообщение 14.12.2006 21:15
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 16
Пол: Мужской

Репутация: -  0  +


Помогите с решением. Никак не могу понять как ее делать , и через 'Палиндром" не получается , мне нужно чисто со Строковыми данными работать. Сама задача: " В заданном тексте найти все пары слов из которых одно является обращением другого". Заранее благодарен.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 13)
мисс_граффити
сообщение 14.12.2006 21:22
Сообщение #2


просто человек
******

Группа: Модераторы
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


взял первое слово, перевернул, проверил, есть ли оно в строке. если есть - вывел.
взял следующее...
как разбивать на слова - см. в прилепленной теме


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
m@xvel
сообщение 14.12.2006 21:54
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 16
Пол: Мужской

Репутация: -  0  +


Говорить легко,а вот сделать непросто, если не понимаешь как делать, а это уже совсем другое.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 14.12.2006 22:01
Сообщение #4


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Что конкретно не получается ?

Разбиение на слова. Все способы.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
m@xvel
сообщение 15.12.2006 21:31
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 16
Пол: Мужской

Репутация: -  0  +


Не пойму как в заданном тексте найти все пары слов, и еще вопрос, а зачем мне надо разбиение на слова если мне надо определить слова из которых одно является обращением другого?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Malice
сообщение 15.12.2006 21:52
Сообщение #6


Профи
****

Группа: Пользователи
Сообщений: 705
Пол: Мужской

Репутация: -  20  +


Разбил на слова в массив, потом:

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, если сам не сможешь, то поиском.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
m@xvel
сообщение 17.12.2006 19:52
Сообщение #7


Новичок
*

Группа: Пользователи
Сообщений: 16
Пол: Мужской

Репутация: -  0  +


А как поиском, не подскажешь.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
m@xvel
сообщение 18.12.2006 20:24
Сообщение #8


Новичок
*

Группа: Пользователи
Сообщений: 16
Пол: Мужской

Репутация: -  0  +


А через polyndrom это как в строках делать
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
мисс_граффити
сообщение 18.12.2006 20:49
Сообщение #9


просто человек
******

Группа: Модераторы
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


http://forum.pascalnet.ru/index.php?act=Search&f=12


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
m@xvel
сообщение 18.12.2006 21:06
Сообщение #10


Новичок
*

Группа: Пользователи
Сообщений: 16
Пол: Мужской

Репутация: -  0  +


Поиск не дал результатов.Может кто нибудь знает как эту задачу решить.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
мисс_граффити
сообщение 18.12.2006 21:20
Сообщение #11


просто человек
******

Группа: Модераторы
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


неужели?
Палиндромы


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
m@xvel
сообщение 19.12.2006 16:44
Сообщение #12


Новичок
*

Группа: Пользователи
Сообщений: 16
Пол: Мужской

Репутация: -  0  +


Не получилось через polyndrom там файлы,а мне нужно с использование "Строк"
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 19.12.2006 16:50
Сообщение #13


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


 function palindrom(x:string):string;


и где тут файлы ? Решение твоей задачи в посте #6, все что тебе нужно сделать это скопировать один кусок кода (разбиение на слова) из одного места и скопировать функцию из другого. ВСЕ.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Malice
сообщение 19.12.2006 16:50
Сообщение #14


Профи
****

Группа: Пользователи
Сообщений: 705
Пол: Мужской

Репутация: -  20  +


Из той темы тебе нужна только функция palindrom - оно слово переворачивает, остальное у тебя уже есть.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 20.06.2025 9:00
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"