Добро пожаловать, гость
:: алгоритмы  и методы :: :: олимпиадные задачи :: :: связь :: :: о сайте :: :: форум ::

Форум работает в режиме архива, только для чтения и поиска.
Архив 2004 Архив 2007 Архив 2013

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 08.12.2010, 15:15
Новичок

Отправить личное сообщение для konstantin Посмотреть профиль Найти все сообщения от konstantin
 
Регистрация: 08.06.2009
Сообщений: 14

Подстроки, Файлы
Здравствуйте
Помогите, пожалуйста, с задачей.


Даны два файла, содержащие строки. Файл f1 являтся проверяемым, файл
f2 по имени "filtr"- проверяющий тестер.
Если строка файла f2 является подстрокой какой-нибудь строки файла f1
то эту строку файла f1 надо переписать в новый файл f4. Строки файла f1,
не содержащие в качестве подстрок строки из файла f2, переписываются
в новый файл f3. {Если в f1 и в f2(filtr) есть одинаковые строки, то эти
строки переписываются из f1 в f3. Если в f2(filtr) есть строки, имеющие
одинаковые подстроки со строками файла f1, но при этом количество слов в
строке файла f2(filtr) больше количества слов в сравниваемой строке
файла f1, то программа никаких действий не производит.} Написанное
между { и } является подробностью предшествуюших двух предложений.
Строки состоят из слов (буквы, числа, символы), разделенных одним или
более пробелами, в начале и конце строк отсутствие пробелов, или один
пробел или более. Проверяются только слова и их порядок.
Задачу выполнить на Паскале.

Вот моя попытка:

Код:
var f1, f2, otb, ost : text;
    c : array[1..s1] of string;
    s, s1 : string;
    n : Integer;
begin
 Assign(f1, 'RES.txt'); Reset(f1);
 Assign(otb, 'OT6.txt'); ReWrite(otb);
 Assign(ost, 'OCT.txt'); ReWrite(ost);

 while not Eof(f1) do
  begin
   ReadLn(f1, s);
    if pos(s1[n], s) > 0 then WriteLn(otb, s) else WriteLn(ost, s);
  end;

  repeat
   ReadLn(f1, s);
   Assign(f2, 'filtr.txt'); Reset(f2);
    repeat
     ReadLn(f2, s1);
    until(EoF(f2));
   Close(f2);
  until(EoF(f1));

Close(f1); Close(otb); Close(ost);
end.
  #2  
Старый 08.12.2010, 16:07
MBo MBo вне форума
Местный

Отправить личное сообщение для MBo Посмотреть профиль Найти все сообщения от MBo
 
Регистрация: 21.09.2006
Адрес: Новосибирск
Сообщений: 1,374

Думаю, в учебной задаче такого уровня ни к чему алгоритмическая оптимизация (если она понадобится, то не вреден будет алгоритм Ахо-Корасик).

(Текст, начиная с первой фигурной скобки - словесный мусор)

Так что весь файл filtr.txt нужно считать в массив строк. Затем читать по одной строчке из f1, проверять pos для каждой строки из массива, и в зависимости от результата писать строку в один из выходных файлов.
  #3  
Старый 08.12.2010, 16:40
Новичок

Отправить личное сообщение для konstantin Посмотреть профиль Найти все сообщения от konstantin
 
Регистрация: 08.06.2009
Сообщений: 14

А кодом проиллюстрировать можно? Не в учебных целях, т. к. я давно
и далеко и не студент, и не программист. Или форум только для
программистов и учащихся? Прошу простить за оффтоп.
  #4  
Старый 08.12.2010, 17:43
MBo MBo вне форума
Местный

Отправить личное сообщение для MBo Посмотреть профиль Найти все сообщения от MBo
 
Регистрация: 21.09.2006
Адрес: Новосибирск
Сообщений: 1,374

>Не в учебных целях
Тогда зачем нужна эта задача?
  #5  
Старый 08.12.2010, 18:23
Новичок

Отправить личное сообщение для konstantin Посмотреть профиль Найти все сообщения от konstantin
 
Регистрация: 08.06.2009
Сообщений: 14

Может быть, вы сделаете мне таблицы? Я вожу машину, но её не конструировал, пользуюсь зажигалкой , но не знаю как она устроена.
Я всего лишь пользователь. Точно также пользуюсь Вашими и вашими
программами, в которых не разбираюсь, потому что, повторяю, я не программист. Ещё раз спрашиваю: на форуме помогают только изучающим программирование? Простите, Вы вынуждаете меня писать лишнее
 


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

Расширенный поиск
Опции просмотра


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
С++, файлы и Linux гость Реализация, исходники, языки 3 16.04.2009 12:07
Задача на на поиск подстроки в строке Skytweak Сортировка и поиск 4 07.09.2008 23:07
Программа на файлы. Помогите! Зачет только из-за нее сдать не могу! Help me! Реализация, исходники, языки 5 04.06.2008 06:18
Ps-файлы ZakharovRoman Поиск и обсуждение книг/сайтов 1 22.01.2007 06:46