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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 10.01.2011, 07:46   #1
NatawaB
 
Регистрация: 10.01.2011
Сообщений: 5
Восклицание Задача на строки

Дан текстовый файл. Первая строка содержит n - количество строк в тексте (1 <= n <= 5). В следующих n строках задается текст. Необходимо подсчитать сколько раз встречается в тексте подстрока.
Например: входной файл:
3
home work home
class work
work homehomeho
Выходной файл:
4
{Подстрока "home" встречается в тексте 4 раза}
NatawaB вне форума Ответить с цитированием
Старый 10.01.2011, 07:50   #2
NatawaB
 
Регистрация: 10.01.2011
Сообщений: 5
По умолчанию

Цитата:
Сообщение от NatawaB Посмотреть сообщение
Дан текстовый файл. Первая строка содержит n - количество строк в тексте (1 <= n <= 5). В следующих n строках задается текст. Необходимо подсчитать сколько раз встречается в тексте подстрока.
Например: входной файл:
3
home work home
class work
work homehomeho
Выходной файл:
4
{Подстрока "home" встречается в тексте 4 раза}
Примерно как то так сделала, но здесь ошибка, не могу разобраться. Может кто-нибудь знает?

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.
NatawaB вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
задача на строки 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