Даны файлы f и g, компоненты которых целые числа. В файл s записать сумму компонентов файлов (поэлементно), а в файл r их разность — Pascal(Паскаль)

program PascalGuru;

type
  faily = record
    cislo: integer;
  end;

var
  t, t2, t3: faily;
  f, g, s, r: file of faily;
  fn, gn: integer;

begin
  assign(f, 'f.txt');
  assign(g, 'g.txt');

  reset(f);
  while not eof(f) do
  begin
    read(f, t);
    inc(fn);
  end;

  reset(g);
  while not eof(g) do
  begin
    read(g, t);
    inc(gn);
  end;

  if fn <> gn then
  begin
    writeln('Chislo komponentov faila "f" i "g" ne sovpadaet...');
    readln;
    close(f);
    close(g);
    halt;
  end;

  assign(s, 's.txt');
  assign(r, 'r.txt');
  rewrite(s);
  rewrite(r);

  reset(f);
  reset(g);
  while not eof(f) do
  begin
    read(f, t);
    read(g, t2);

    t3.cislo := t.cislo + t2.cislo;
    write(s, t3); { записываем сумму }

    t3.cislo := t.cislo - t2.cislo;
    write(r, t3); { записываем разность }
  end;

  writeln('Faily "s" i "r" uspeshno zapisany...');

  close(f);
  close(g);
  close(s);
  close(r);
  readln;

end.

Leave a Comment