Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 2 295

/ вопрос открыт /

Здравствуйте, уважаемые эксперты!
помогите пожалуйста написато программу: Указания: Перед выполнением задания написать программу, создающую на диске файлы, содержащие исходные данные, соответствующие варианту задания. Программа должна обрабатывать файлы больших размеров, без хранения всего содержимого файла в оперативной памяти.
1. Даны два файла, компонентами которых являются целые числа. Создать новый файл, в котором объединить компоненты двух исходный файлов так, чтобы с начала шли четного числа из обоих файлов, а затем нечетные.

joke Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: joke (статус: Посетитель)
Вопрос отправлен: 11 января 2009, 14:40
Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Мережников Андрей

Здравствуйте, joke!
Примерный код в приложении.
Заполнение файлов исходными данными, думаю, проблем не составит.

Приложение:
  1. var f1,f2,of1,of2:file of integer;
  2. x:integer;
  3. begin
  4.  
  5.  
  6.  
  7.  
  8. rewrite(of1);
  9. rewrite(of2);
  10. reset(f1);
  11. while not(eof(f1))
  12. do begin
  13. read(f1,x);
  14. if (x mod 2)=0
  15. then write(of1,x)
  16. else write(of2,x);
  17. end;
  18. closefile(f1);
  19. reset(f2);
  20. while not(eof(f2))
  21. do begin
  22. read(f2,x);
  23. if (x mod 2)=0
  24. then write(of1,x)
  25. else write(of2,x);
  26. end;
  27. closefile(f2);
  28. closefile(of2);
  29. reset(of2);
  30. while not(eof(of2))
  31. do begin
  32. read(of2,x);
  33. write(of1,x);
  34. end;
  35. closefile(of2);
  36. closefile(of1);


Ответ отправил: Мережников Андрей (статус: Абитуриент)
Время отправки: 12 января 2009, 05:29


Мини-форум вопроса

Всего сообщений: 4; последнее сообщение — 11 января 2009, 20:54; участников в обсуждении: 2.
Мережников Андрей

Мережников Андрей (статус: Абитуриент), 11 января 2009, 17:07 [#1]:

в каком порядке должны идти числа? Сначала четные из первого файла, затем четные из второго, нечетные из первого, нечетные из второго? Или не играет роли из какого исходного файла число?
joke

joke (статус: Посетитель), 11 января 2009, 19:07 [#2]:

не играет роли
Мережников Андрей

Мережников Андрей (статус: Абитуриент), 11 января 2009, 19:52 [#3]:

тогда можно поступить следующим образом:
1. создаем для записи два файла, один для четных, другой - для нечетных чисел
2. открываем для чтения исходный файл1
3. в цикле последовательно считываем числа из исходного файла1
4. если число четное, то пишем в файл для четных, если нечетное, то пишем в файл для нечетных
5. закрываем исходный файл1

повторяем пункты 2-5 для второго исходного файла
закрываем файл для нечетных чисел. затем открываем его для чтения читаем из него последовательно числа и добавлем в файл для четных.
закрываем оба файла. в файле для четных чисел будет искомый результат. если нужны подробности (код) то пишите
joke

joke (статус: Посетитель), 11 января 2009, 20:54 [#4]:

напишите пожалуйста код

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 февраля 2025, 11:41
Выполнено за 0.03 сек.