Страница 1 из 1
[Pascal]Обработка строк
Добавлено: 05 мар 2007, 22:54
maxg5
Дана символьная строка.Посчитать,сколько раз в ней встречается подслово abba.Обратите внимание:В строке abbabba это слово встречается два раза!
Re: [Pascal]Обработка строк
Добавлено: 06 мар 2007, 02:04
Колядин Максим
maxq5 писал(а):Дана символьная строка.Посчитать,сколько раз в ней встречается подслово abba.Обратите внимание:В строке abbabba это слово встречается два раза!
Вот с "убиением" строки:
Код: Выделить всё
uses crt]:=' ';
end;
write('В строке ',text,' слово ',slovo,' встречается ',sum,' раз');
readkey;
end.
Можешь создать копию стоки Text, если она тебе понадобится в будущем.
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, 12:30
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.
What hosting to choose?
Добавлено: 13 окт 2015, 06:28
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