Задача на работу с файлами., Сортировка файла. Опции

[1nSAnder]

Здравствуйте! Помогите, если можете, решить простую (IMHO) задачку на работу с файлом.
Вот условие.
_Ввести с клавиатуры файл действительных чисел.
_Переместить в нём все нули в конец, сохраняя порядок следования остальных компонент.
_ДОПОЛНИТЕЛЬНЫЙ ФАЙЛ ИЛИ МАССИВ НЕ СОЗДАВАТЬ!
_Выдать результирующий файл или сообщение, что это невозможно...
Заранее премного благодарен.

[volvo]

Помогите, если можете, решить простую (IMHO) задачку на работу с файлом.

Ну если она простая, чего же сами не решаете?

В принципе, ничего сложного. Просто читаем данные из файла последовательно, и храним индексы для чтения следующего элемента и для записи следующего элемента... Перезаписываем, естественно, только ненулевые элементы. Остаток файла забиваем нулями. Примерно вот так:

Код

const
 n = 10;
var
 f: file of double;

var
 i: integer;
 x: double;
 f_read, f_write: longint;

begin
 assign(f, 'test.ttt');
 rewrite(f);

 for i := 1 to n do
   begin
     write('x(', i, ') = ');
     readln(x); write(f, x)
   end;

 reset(f);

 { устанавливаем начальные значения указателей }
 while { есть что читать } do
   begin
     { прочитать следующий элемент в X и передвинуть указатель для чтения }

     if x <> 0 then { записать X в файл и передвинуть указатель для записи }
   end;

 { до конца файла перезаписать компоненты нулями }

 WriteLn('Проверка:');
 reset(f);
 while not eof(f) do
   begin
     read(f, x);
     writeln(x:8:4)
   end;

 close(f)
end.