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

Ответить

Код подтверждения
Введите код в точности так, как вы его видите. Регистр символов не имеет значения.
BBCode ВКЛЮЧЁН
[img] ВКЛЮЧЁН
[url] ВКЛЮЧЁН
Смайлики ОТКЛЮЧЕНЫ
Обзор темы
   

Развернуть Обзор темы: [Pascal]Обработка строк

What hosting to choose?

GeorgeSoca » 13 окт 2015, 06:28

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

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

BBB » 06 мар 2007, 12:30

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

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.

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

Хыиуду » 06 мар 2007, 09:57

Можно и так:

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

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

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

Колядин Максим » 06 мар 2007, 02:04

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

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

  uses crt]:=' ';
  end;
  write('В строке ',text,' слово ',slovo,' встречается ',sum,' раз');
  readkey;
  end.
Можешь создать копию стоки Text, если она тебе понадобится в будущем.

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

maxg5 » 05 мар 2007, 22:54

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

Вернуться к началу