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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 16.06.2008, 12:44   #51
Olympian
Форумчанин
 
Аватар для Olympian
 
Регистрация: 06.06.2008
Сообщений: 105
По умолчанию

veter_s_morya
Вам надо найти именно слово "то" - т.е. отделенное от других слов пробелами, или кол-во буквенных сочетаний "то" например
посТОянно
просТО
и тп
или именно
он ТО пел ТО замолкал
Olympian вне форума
Старый 16.06.2008, 12:51   #52
veter_s_morya
ФорумчанинДжуниор
 
Аватар для veter_s_morya
 
Регистрация: 05.05.2008
Сообщений: 606
По умолчанию

Цитата:
Вам надо найти именно слово "то" - т.е. отделенное от других слов пробелами, или кол-во буквенных сочетаний "то" например
посТОянно
просТО
и тп
или именно
он ТО пел ТО замолкал
Тут то является отдельным словом, если я правильно понял!?
------------------------------
Ум без разума –это беда!
veter_s_morya вне форума
Старый 16.06.2008, 13:02   #53
Olympian
Форумчанин
 
Аватар для Olympian
 
Регистрация: 06.06.2008
Сообщений: 105
По умолчанию

В том коде, что написал WOLFak - да
Olympian вне форума
Старый 16.06.2008, 13:07   #54
veter_s_morya
ФорумчанинДжуниор
 
Аватар для veter_s_morya
 
Регистрация: 05.05.2008
Сообщений: 606
По умолчанию

Цитата:
В том коде, что написал WOLFak - да
Так он с функциями решает, а мне надо без них! смотри выше.
------------------------------
Ум без разума –это беда!
veter_s_morya вне форума
Старый 16.06.2008, 13:32   #55
WOLFak
Форумчанин
 
Аватар для WOLFak
 
Регистрация: 30.12.2007
Сообщений: 180
По умолчанию

тогда
Код:
var         
 s:string;         
 i,k:longint;
begin         
 readln(s);       
for i:=1 to length(s) do      
 if (not ord(s[i]) in [128..239]) then      
  s[i]:=' ';       
 s:=' '+s;
 i:=1;
 k:=0;
 while i<length(s)-3  do
if (s[i]=' ')and(((s[i+1]='т')and(s[i+2]='о'))or((s[i+1]='Т')and(s[i+2]='О')))and(s[i+3]=' ') then
 begin
  i:=i+3;
  k:=k+1;
 end else
  i:=i+1;         
 writeln(k);
end.
^_^

Последний раз редактировалось WOLFak; 16.06.2008 в 13:36.
WOLFak вне форума
Старый 17.06.2008, 17:52   #56
Alex21
With best regards
Участник клуба
 
Регистрация: 20.04.2007
Сообщений: 1,448
По умолчанию

veter_s_morya, курс лекций можно пройти почитав Полезную литературу.

Прежде чем задавать вопросы, типа: "И что у нас такое pos?" и т.п. загляни в поиск.
p.s.: если совсем не понятно -> в раздел "Помощь студентам"

Тема сводится во флуд. Закрыто.
Alex21 вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Массивы в С\С++ Zahar11 Помощь студентам 4 31.05.2008 00:35
массивы ShenDy Общие вопросы C/C++ 4 17.04.2008 00:01
Массивы Snord Общие вопросы Delphi 2 12.04.2008 13:45