Быстрая сортировка внутри файла txt Опции

[Vardes]

Задача состоит в том, чтобы реализовать быструю сортировку внутри txt файла, не используя массивы...все перестановки вести в файле...Может у кого есть наработки в это области....Заранее благодарен...

[klem4]

не понимаю где проблема в перемене 2-х строк различной длины

  write(f, 'this is first string');
  write(f, 'this is second string');

  seek(f, 0); read(f, temp0);
  seek(f, 1); read(f, temp1);

  write(f, temp0);
  seek(f, 0); write(f, temp1);

  while not(eof(f)) do begin
    read(f, temp0); writeln(temp0);
  end;

Речь ведь об этом ?

[andriano]

не понимаю где проблема в перемене 2-х строк различной длины

  write(f, 'this is first string');
  write(f, 'this is second string');

  seek(f, 0); read(f, temp0);
  seek(f, 1); read(f, temp1);

  write(f, temp0);
  seek(f, 0); write(f, temp1);

  while not(eof(f)) do begin
    read(f, temp0); writeln(temp0);
  end;

Речь ведь об этом ?

Не совсем.
В первом посте речь шла о текстовом файле, а, судя по приведенному тобой коду, ты работаешь с бинарным файлом.

PS. Да и сама программа делает совсем не то, что нужно автору, хотя и выдает на экран ВРОД БЫ искомый вариант.
На самом деле эта программа во 2-ю позицию (нумерация с 0) вписывает first string, а в нулевую - second string. secod string при этом остается на прежней 1-й позиции. Затем мы читаем файл, начиная с 1-й (а не 0-й) позиции.

Сообщение отредактировано: andriano - 20.04.2008 20:04