|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.01.2011, 07:46 | #1 |
Регистрация: 10.01.2011
Сообщений: 5
|
Задача на строки
Дан текстовый файл. Первая строка содержит n - количество строк в тексте (1 <= n <= 5). В следующих n строках задается текст. Необходимо подсчитать сколько раз встречается в тексте подстрока.
Например: входной файл: 3 home work home class work work homehomeho Выходной файл: 4 {Подстрока "home" встречается в тексте 4 раза} |
10.01.2011, 07:50 | #2 | |
Регистрация: 10.01.2011
Сообщений: 5
|
Цитата:
program borlpasc; var s,sl:string; k,i:integer; f,f1:text; begin assign(f,'text.txt'); reset(f); assign(f1,'text1.txt'); rewrite(f1); readln(f,s); k:=0; while not eof(f) do begin k:=k+1; delete(s,pos('story',s),length('sto ry')); end; write(f1,k); close(f); close(f1); end. |
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
задача на строки | Dinamit_92 | Помощь студентам | 8 | 14.08.2010 09:32 |
Задача на строки | Sweety | Помощь студентам | 1 | 23.05.2009 01:44 |
Задача на строки С++ | Many man | Помощь студентам | 10 | 06.05.2009 21:17 |
задача на строки | BERT | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 07.04.2009 10:07 |