0 / 0 / 0
Регистрация: 24.11.2015
Сообщений: 15
1

Переписать с сохранением порядка следования компоненты файла f1 в файл f2

25.04.2016, 20:06. Показов 2357. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите! Даны файлы f1 и f2, содержащие целые числа. Переписать с сохранением порядка следования компоненты файла f1 в файл f2, а компоненты файла f2 в файл f1. Использовать вспомогательный файл h.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.04.2016, 20:06
Ответы с готовыми решениями:

Переписать с сохранением порядка следования компоненты файла f1 в файл f2
1, Даны текстовые файлы f1 и f2. Переписать с сохранением порядка следова-ния компоненты файла f1 в...

Переписать с сохранением порядка следования компоненты файла F1 в файл F2
Ввести файлы F1 и F2. Переписать с сохранением порядка следования компоненты файла F1 в файл F2, а...

Переписать с сохранением порядка следования компоненты файла f1 в файл f2, а компоненты файла f2 в файл f1
Даны текстовые файлы f1 и f2. Переписать с сохранением порядка следования компоненты файла f1 в...

Переписать с сохранением порядка следования компоненты файла 1 F в файл 2 F , а компоненты файла 2 F в файл 1 F
Ввести файлы 1 F и 2 F . Переписать с сохранением порядка следования компоненты файла 1 F в файл 2...

1
5072 / 2643 / 2350
Регистрация: 10.12.2014
Сообщений: 10,013
26.04.2016, 05:43 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure CopyFile(name1, name2 : String);
var f1, f2 : File of Integer; v : Integer;
begin
  Assign(f1, name1); Assign(f2, name2);
  Reset(f1); Rewrite(f2);
  while Not EOF(f1) do
    begin
      Read(f1, v); Write(f2, v);
    end;
  Close(f1); Close(f2);
end;
 
var
  f1, f2, h : String;
begin
  Write('Имя файла f1: '); ReadLn(f1);
  Write('Имя файла f2: '); ReadLn(f2);
  Write('Имя файла  h: '); ReadLn(h );
  WriteLn('Копирование: ', f1, ' -> ', h ); CopyFile(f1, h );
  WriteLn('Копирование: ', f2, ' -> ', f1); CopyFile(f2, f1);
  WriteLn('Копирование: ', h , ' -> ', f2); CopyFile(h , f2);
  WriteLn('Готово!');
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.04.2016, 05:43
Помогаю со студенческими работами здесь

Даны два символьных файла. Переписать с сохранением порядка следования компоненты первого файла во второй файл и наоборот.
Плиз прошу помочь с задачами: 1)Из введенного текста распечатать только те слова, которые...

Переписать с сохранением порядка следования компоненты файла а1 в файл f2 а файла f2 в файл f1
Помогите пожалуйста товарищи программисты решить мой вариант на тему файлы... Вариант 5 1. Даны...

Переписать с сохранением порядка следования компоненты файла f1 — в файл f2
Здравствуйте, помогите пожалуйста , с помощу процедуры. Сформировать файлы f1 и f2. Формулу для...

Файл: Переписать с сохранением порядка следования компоненты файлы f1 в файл f2, а компоненты файла f2 - в файл f1.
При открытии и сохранении файла необходимо использовать файловые диалоги. 1. Даны...

Переписать с сохранением порядка следования компоненты файла F1 в файл F2, а компоненты файла F2 - в файл F1
Даны символьные файлы F1 и F2. Переписать с сохранением порядка следования компоненты файла F1 в...

Текстовые файлы: Переписать с сохранением порядка следования строк файла f1 в файл f2
Типизированные файлы. Создать и заполнить текстовые файлы f1 и f2. Переписать с сохранением...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru