Работа с текстом

[Yrec]

Даны два текстовых файла. Поменять местами содержимое этих файлов.

Чтение и запись текстовых файлов в программе
по этой системе над решать ребят помогите мля срочняк над)/
вот на подобие ток тут чё то не правильно

var
  x, y: text;
  
  s, d, z, q: string;

begin
  assign(x, 'D:\\x.txt');
  assign(y, 'D:\\y.txt');
  reset(x);
  reset(y);
  while not (eof(x)) do
  begin
    readln(x, z);
    s := s + z;
  end;
  while not (eof(y)) do
  begin
    readln(y, q);
    d := d + q;
  end;
  close(x);
  close(y);
  rewrite(x);
  rewrite(y);
  writeln(x, d);
  writeln(y, s);
  close(x);
  close(y);
  
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[VIK_aka_TOR]

как насчет переименовать просто файлы?)))..

[Yrec]

не вариант ) препод сказал что что то не так а я хз)

[Serge_Bliznykov]

не вариант ) препод сказал что что то не так а я хз)

ну а нам откуда знать, что Вашего препода не устраивает?!

на мой взгляд - задача крайне тупая и бессмысленная (если Вы дословно процитировали её условие, тогда совет VIK_aka_TOR насчёт взаимного обмена имён файлов - это единственное реальное эффективное решение!)

но, допустим, Ваш преподаватель извращенец, садист и мазохист. И выдал Вам вместо веника лом не для того, чтобы Вы подмели плац чисто, а для того, чтобы вы задолбались..
ладно.
тогда.

вариант 1. можно доработать ваше решение. нужно писать в строки ещё символы перевода строк. И ещё учесть, что в TurboPascal максимальная длина строки равна 255 символов. поэтому, если любой из файлов больше этого размера, то решить задачу данным способом нельзя
это вариант будет выглядеть примерно так:

var
  f : file of byte;
  fSize : longint;
  x, y: text;

  sFile1, sFile2, z : string;

begin
  Assign(f, 'd:\x.txt');
  reset(f);
  fSize := filesize(f);
  close(f);

  if fSize>255 then begin
    WriteLn('Размер первого файла большее 255 - в строку не помещается! Выходим из программы!');
    Readln;
    Halt(1)
  end;

  assign(x, 'd:\x.txt');
  reset(x);
  sFile1 := ''; {обязательно очистим переменную, куда будем читать файл}
  while not eof(x) do
  begin
    readln(x, z);
    sFile1 := sFile1 + z;
    if not eof(x) then 
      sFile1 := sFile1 + #13#10;
  end;
  close(x);

  Assign(f, 'd:\y.txt');
  reset(f);
  fSize := filesize(f);
  close(f);

  if fsize>255 then begin
    WriteLn('Размер второго файла большее 255 - в строку не помещается! Выходим из программы!');
    Readln;
    Halt(1)
  end;

  assign(y, 'D:\y.txt');
  reset(y);
  sFile2 := ''; {обязательно очистим переменную, куда будем читать файл}
  while not eof(y) do
  begin
    readln(y, z);
    sFile2 := sFile2 + z;
    if not eof(y) then 
      sFile2 := sFile2 + #13#10;
  end;
  close(y);


  rewrite(x);
  rewrite(y);
  writeln(x, sFile2);
  writeln(y, sFile1);
  close(x);
  close(y);

  WriteLn('Готово!');
  Readln;
  
end.

второй вариант. создать статические массивы (ну, хотя бы на пару сотен строк). Тогда ограничение на размер файла можно довести примерно до 30 кб.

ещё вариант - использовать динамические структуры - тогда размеры обмениваемых файлов могут достигать размера доступной для программы оперативной памяти.

а вообще, ещё раз повторю - задача очень плохо придумана....

[ByAlex]

Еще как вариант - считывать построчно с каждого файла по строке и менять их местами. Потом так же со второй и так далее.

[Serge_Bliznykov]

Сообщение от ByAlex

Еще как вариант - считывать построчно с каждого файла по строке и менять их местами. Потом так же со второй и так далее.

нет, не пойдёт такой способ.
Текстовые файлы не являются правилами ПРЯМОГО доступа (как типизированные). Спозиционироваться в произвольное место текстового файла невозможно (практически). да и если бы это даже и было возможно, то всё равно это не помогло бы - разные строки занимают в этих файлах РАЗЛИЧНУЮ длину. Никто сдвигать содержимое оставшихся строк не будет..

поэтому такой способ непременим.