Запись массива из файла в файл - Pascal ABC

Узнай цену своей работы

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

В файл output массив не записывается

Решение задачи: «Запись массива из файла в файл»

textual
Листинг программы
var
  f, r: file of char;
  c: char;
  i, n: integer;
  x: array [1..1000] of char;
 
begin
  assign(f, 'input.txt');
  assign(r, 'output.txt');
  
  // Заполнение массива из файла
  reset(f);
  i := 1;
  while not eof(f) do 
  begin
    read(f, c);
    x[i] := c;
    write(x[i], ' ');    
    inc(i);
  end;
  n := i;
  
  // запись массива в другой файл
  rewrite(r);
  for i := 1 to n do 
    write(r, x[i]);
  
  close(f);
  close(r);
end.

Оцени полезность:

6   голосов , оценка 3.833 из 5
Похожие ответы