Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Pascal] Файловая система. 
V
    Опции темы
ruman
  Дата 15.11.2006, 22:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 15.11.2006

Репутация: нет
Всего: нет
Файловая система.

Даны два файла F и G, содержащие целые числа. Переписать в  файл H все числа входящие в F и не входящие в G!!!


Прошу вас помогите !!! не могу разобраться!!! 
 smile 
PM MAIL   Вверх
Kuvaldis
Дата 15.11.2006, 22:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


механик-вредитель
***


Профиль
Группа: Участник Клуба
Сообщений: 1189
Регистрация: 16.6.2006
Где: Минск

Репутация: 32
Всего: 61
ruman, 
файлы какие: типизированные или текстовые?


--------------------
Помни - когда ты спишь, враг не дремлет
Спи чаще и дольше, изматывай врага бессоницей
PM MAIL ICQ   Вверх
ruman
Дата 15.11.2006, 22:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 15.11.2006

Репутация: нет
Всего: нет
ну содержащие целые числа!!! наверно типизированые?!!!
PM MAIL   Вверх
volvo877
Дата 16.11.2006, 00:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 34
Всего: 116
Код

type
  int_file = file of integer;

{ Эти 2 массива - только для тестирования работоспособности... }
const
  size = 10;
  arr_1: array[1 .. size] of integer =
    (1, 2, 3, 4, 5, 6, 7, 8, 9, 10);
  arr_2: array[1 .. size] of integer =
    (1, 3, 7, 9, 0, 0, 0, 0, 0, 0);

var
  f, g, h: int_file;
  i, j: integer;
  found: boolean;

begin
  { создаем файлы и пишем в них тестовые последовательности }
  assign(f, 'f_1.dat'); rewrite(f);
  for i := 1 to 10 do write(f, arr_1[i]);

  assign(g, 'f_2.dat'); rewrite(g);
  for i := 1 to 10 do write(g, arr_2[i]);

  { собственно, это - решение задачи }
  assign(h, 'f_3.dat'); rewrite(h);
  reset(f);
  while not eof(f) do begin

    read(f, i);

    reset(g);
    found := false;
    while (not eof(g)) and (not found) do begin
      read(g, j);
      found := (i = j);
    end;

    if not found then write(h, i);

  end;
  close(f);
  close(g);

  { проверяем содержимое H (чтобы ни у кого не было сомнения, что программа работает) }
  reset(h);
  while not eof(h) do begin
    read(h, i);
    writeln(i);
  end;
  close(h);
end.
Результат прогона:
Код

2
4
5
6
8
10
PM MAIL   Вверх
Kuvaldis
Дата 16.11.2006, 01:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


механик-вредитель
***


Профиль
Группа: Участник Клуба
Сообщений: 1189
Регистрация: 16.6.2006
Где: Минск

Репутация: 32
Всего: 61
volvo877, 
опередил меня как раз хотел отправить (не надо было футбол смотреть).  smile 
ruman, 
Как видишь, если файлы неупорядоченные, то процесс получения результирующего файла достаточно длителен (каждый элемент файла F сравнивается со всеми элементами файла G) предполагаемое количество операций сравнения- (размер файла G) / 2 для КАЖДОГО элемента.
Поэтому, если есть возможность, то файлы следует упорядочивать при создании
В этом случае процесс отсеивания - достаточно прост и быстр.

Это сообщение отредактировал(а) Kuvaldis - 16.11.2006, 01:59


--------------------
Помни - когда ты спишь, враг не дремлет
Спи чаще и дольше, изматывай врага бессоницей
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0483 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.