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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 23.03.2014, 20:37   #1
Тетрадь
Пользователь
 
Регистрация: 03.11.2013
Сообщений: 37
По умолчанию Строки. сколько в тексте слов перевертышей

Выяснить, сколько в тексте слов перевертышей.Тема:СТРОКИ. Написал фрагмент этой задачи, дальше не могу, кто может пожалуйста помогите доработать программу
Нужно написать подсчет этих слов в строке
Код:
function per(p: string): integer;
var i: integer;
begin
  per := 1;
  for i := 1 to length(p) div 2 do if p[i] <> p[length(p) - i + 1]
    then begin
      per := 0;
    end
end;

Последний раз редактировалось Тетрадь; 24.03.2014 в 11:42.
Тетрадь вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Выяснить, сколько в тексте слов перевертышей? Экспандер Помощь студентам 6 16.03.2014 19:28
Текст, сколько слов в тексте? BigBen Помощь студентам 1 13.01.2011 19:40
Для каждого из слов указать, сколько раз оно встречается в тексте.(paskal) INZA Помощь студентам 1 14.12.2010 10:25
Поиск слов в тексте(Строки в Паскале) ParkDI Помощь студентам 0 28.11.2010 18:03
Составить в алфавитном порядке список всех слов, встречающихся в тексте, и количество этих слов. KAPAHDAW Паскаль, Turbo Pascal, PascalABC.NET 2 17.02.2009 01:19