Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

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

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

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

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

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

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

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

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

Код просят показать ввода слов тебя )
А проверка на палиндром может выглядеть так:
Код:
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, 18:28   #7
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,840
По умолчанию

Код просят показать ввода слов тебя )
А проверка на палиндром может выглядеть так:
Код:
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 вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Текст, сколько слов в тексте? 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 18:01


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS