[Pascal]Обработка строк

[maxg5]

Дана символьная строка.Посчитать,сколько раз в ней встречается подслово abba.Обратите внимание:В строке abbabba это слово встречается два раза!

[Колядин Максим]

Дана символьная строка.Посчитать,сколько раз в ней встречается подслово abba.Обратите внимание:В строке abbabba это слово встречается два раза!

Вот с "убиением" строки:

Код: Выделить всё

  uses crt]:=' ';
  end;
  write('В строке ',text,' слово ',slovo,' встречается ',sum,' раз');
  readkey;
  end.

Можешь создать копию стоки Text, если она тебе понадобится в будущем.

[Хыиуду]

Можно и так:

Код: Выделить всё

count:=0;
while pos('abba',s)>0 do
begin
   inc(count);
   delete(s,1,pos('abba',s)+1);
end;

[BBB]

Код: Выделить всё

var stExample : string;
      count, i : integer;
     wExLen : word;

begin
  count:=0;
  stExample := 'abba';
  wExLen := Length (stExample);
  for i:=1 to (Length (s) - wExLen + 1) do
    if (Copy (s, i, wExLen) = 'abba') then
      Inc (count);
end.

[GeorgeSoca]

On our web, you can feel safe! Besides we use mirrored hard drives on all of our servers so we also take backup twice a day on separate servers. We use ISPmanager as the control panel. ISPmanager is a control panel that makes it easy to administer its Web site. With us you can place as many websites and domains you wish for a hosting account.
virtual hosting