Строки.

[Prin53]

дан файл f1. Переписать в обратном порядке его строки в файл f2. Содержимое f1 не клпировать в оперативную память.

В смысле, что значение f1 не представлять в виде массива, стека, очереди.

[VIK_aka_TOR]

почитай тут приложи немного смекалки и зделаешь свое задание...

[Serge_Bliznykov]

VIK_aka_TOR

я лично вижу только крайне ТУПОЕ и НЕЭФФЕКТИВНОЕ решение:

прочитать все строки исходного файла, подсчитывая их количество (пусть это будет N).
последнюю прочитанную строку записать в файл f2
потом в цикле К от 1 до N-1
  установить файл на начало через Reset(f); 
  прочитать K строк из исходного файла.
  последнюю прочитанную строчку записать в файл f2
конец цикла
закрыть файлы f1 и f2
конец.

я не заметил другое, более эффективное решение?!

p.s. можно, конечно, открывать файл f1 как бинарный (file или file ob char) и читать посимвольно в направлении от конца к началу - но это, имхо, тоже криво

[Stilet]

Содержимое f1 не клпировать в оперативную память.

Задача не имеет решения.

[VIK_aka_TOR]

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

VIK_aka_TOR

я лично вижу только крайне ТУПОЕ и НЕЭФФЕКТИВНОЕ решение:

прочитать все строки исходного файла, подсчитывая их количество (пусть это будет N).
последнюю прочитанную строку записать в файл f2
потом в цикле К от 1 до N-1
  установить файл на начало через Reset(f); 
  прочитать K строк из исходного файла.
  последнюю прочитанную строчку записать в файл f2
конец цикла
закрыть файлы f1 и f2
конец.

я не заметил другое, более эффективное решение?!

p.s. можно, конечно, открывать файл f1 как бинарный (file или file ob char) и читать посимвольно в направлении от конца к началу - но это, имхо, тоже криво

да и задание не самое лучшее... что бы красиво решить...

[Prin53]

Я думал посимвольно считывать до пробела(конца строки) и заносить в файл2. Как такой вариант?

[Serge_Bliznykov]

Я думал посимвольно считывать до пробела(конца строки) и заносить в файл2. Как такой вариант?

плохо...
к сожалению, это никакого отношения к решению вашей задачи не имеет.
Вы не сможете получить "в обратном порядке cтроки файла f1" таким образом...

[Prin53]

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

плохо...
к сожалению, это никакого отношения к решению вашей задачи не имеет.
Вы не сможете получить "в обратном порядке cтроки файла f1" таким образом...

Тогда по вашему алгоритму, какой функцией считать строку?

[whatever]

Вариант, который предложил Serge_Bliznykov:

procedure backwardscopy(var f1,f2:text);
var
  i,count:integer;
  s:string;
begin
  count:=0;
  reset(f1);
  while not EOF(f1) do
    begin
      readln(f1);
      inc(count);
    end;
  rewrite(f2);
  while count>=1 do
    begin
      s:='';
      reset(f1);
      for i:=1 to count-1 do
        readln(f1);
      readln(f1,s);
      writeln(f2,s);
      dec(count);
    end;
  close(f1);
  close(f2);
end;

От себя добавлю, что решение не только "крайне ТУПОЕ и НЕЭФФЕКТИВНОЕ", но, похоже, единственно верное, при такой постановке задачи.

[Prin53]

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

Вариант, который предложил Serge_Bliznykov:

procedure backwardscopy(var f1,f2:text);

От себя добавлю, что решение не только "крайне ТУПОЕ и НЕЭФФЕКТИВНОЕ", но, похоже, единственно верное, при такой постановке задачи.

Спасибо, огромное.