Напишите программу "склеивания" двух файлов, используя функции creat, read, write, open и close - Turbo Pascal
Формулировка задачи:
Напишите программу "склеивания" двух файлов, используя функции creat, read, write, open и close.
Решение задачи: «Напишите программу "склеивания" двух файлов, используя функции creat, read, write, open и close»
textual
Листинг программы
var f, g, h: file of integer; {h - "склеенный" файл} i, x: integer; begin Randomize; {в файлы f и g запишем по 10 чисел} Assign(f, '1.dat'); Rewrite(f); Assign(g, '2.dat'); Rewrite(g); for i := 1 to 10 do begin x := Random(9) + 1; Write(f, x); x := Random(9) + 1; Write(g, x); end; Assign(h, '3.dat'); Rewrite(h); Reset(f); {выводим содержимое файла f и одновременно копируем его содержимое в файл h} while not EOF(f) do begin Read(f, x); Write(x, ' '); Write(h, x); end; Close(f); Writeln; Reset(g); {выводим содержимое файла g и одновременно копируем его содержимое в файл h} while not EOF(g) do begin Read(g, x); Write(x, ' '); Write(h, x); end; Close(g); Writeln; {выводим содержимое файла h} Reset(h); while not EOF(h) do begin Read(h, x); Write(x, ' '); end; Close(h); Readln end.
Объяснение кода листинга программы
- Объявляются переменные: f, g, h - файлы of integer; i, x - целые числа.
- Задаются начальные значения для переменных: f, g, h.
- Записываются в файлы f и g по 10 чисел каждое.
- Задается значение переменной x.
- Записывается в файл f первое число (x).
- Записывается в файл g первое число (x).
- Задается значение переменной x.
- Записывается в файл f второе число (x).
- Записывается в файл g второе число (x).
- И так далее, пока не будет записан 101-й элемент.
- Задается значение переменной x.
- Записывается в файл f последнее число (x).
- Записывается в файл g последнее число (x).
- Закрываются файлы f и g.
- Открывается файл h.
- Задается начальное значение для переменной x.
- Выводится содержимое файла f.
- Копируется содержимое файла f в файл h.
- Выводится содержимое файла g.
- Копируется содержимое файла g в файл h.
- Выводится содержимое файла h.
- Закрывается файл h.
- Выводится сообщение об окончании работы программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д