Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.03.2014, 18:23   #1
Экспандер
Новичок
Джуниор
 
Регистрация: 16.03.2014
Сообщений: 3
По умолчанию Выяснить, сколько в тексте слов перевертышей?

Выяснить, сколько в тексте слов перевертышей. Данная задача по теме: строки. Паскаль АВС
Экспандер вне форума Ответить с цитированием
Старый 16.03.2014, 18:26   #2
Vanta11a
Lawful Evil
Участник клуба
 
Аватар для Vanta11a
 
Регистрация: 13.05.2008
Сообщений: 1,208
По умолчанию

Ну и что? Самостоятельно что сделано?
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c)
Vanta11a вне форума Ответить с цитированием
Старый 16.03.2014, 19:09   #3
Экспандер
Новичок
Джуниор
 
Регистрация: 16.03.2014
Сообщений: 3
По умолчанию

Ничего, не знаю как прописать, что бы он нашел эти слова среди остальных.
Экспандер вне форума Ответить с цитированием
Старый 16.03.2014, 19:10   #4
Vanta11a
Lawful Evil
Участник клуба
 
Аватар для Vanta11a
 
Регистрация: 13.05.2008
Сообщений: 1,208
По умолчанию

Ок. Покажи, как вводишь слова.
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c)
Vanta11a вне форума Ответить с цитированием
Старый 16.03.2014, 19:14   #5
Экспандер
Новичок
Джуниор
 
Регистрация: 16.03.2014
Сообщений: 3
По умолчанию

В смысле какие именно? Самолет Казак шалаш и т.д
Экспандер вне форума Ответить с цитированием
Старый 16.03.2014, 19:28   #6
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Код просят показать ввода слов тебя )
А проверка на палиндром может выглядеть так:
Код:
Function Pali(s:String):Boolean;
var i:integer;
begin
 for i:=1 to Length(s) div 2 do 
  if s[i]<>s[Length(s)-i+1] then begin Result:=false; exit; end;
 Result:=True;
end;
Соответственно if Pali('Казак') then Это палиндром.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 16.03.2014, 19:28   #7
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Код просят показать ввода слов тебя )
А проверка на палиндром может выглядеть так:
Код:
Function Pali(s:String):Boolean;
var i:integer;
begin
 for i:=1 to Length(s) div 2 do 
  if s[i]<>s[Length(s)-i+1] then begin Result:=false; exit; end;
 Result:=True;
end;
Соответственно if Pali('Казак') then Это палиндром.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Текст, сколько слов в тексте? BigBen Помощь студентам 1 13.01.2011 19:40
Для каждого из слов указать, сколько раз оно встречается в тексте.(paskal) INZA Помощь студентам 1 14.12.2010 10:25
выяснить, встречается ли в данном тексте группа букв one; hidalgo Фриланс 7 19.01.2010 10:57
Составить в алфавитном порядке список всех слов, встречающихся в тексте, и количество этих слов. KAPAHDAW Паскаль, Turbo Pascal, PascalABC.NET 2 17.02.2009 01:19
Нахождение слов-палиндромов ("перевертышей") 1234 Помощь студентам 16 26.05.2008 19:01