Напишите программу "склеивания" двух файлов, используя функции creat, read, write, open и close - Turbo Pascal

Формулировка задачи:

Напишите программу "склеивания" двух файлов, используя функции creat, read, write, open и close.

Код к задаче: «Напишите программу "склеивания" двух файлов, используя функции creat, read, write, open и close - Turbo Pascal»

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.

15   голосов, оценка 4.133 из 5


СОХРАНИТЬ ССЫЛКУ