создать файл содержащий те же элементы в обратном порядке

[Aimet]

Дан файл целых чисел. Создать файл содержащий те же элементы в обратном порядке.
Программу нужно выполнить на языке PascalABC

[[ Senya Black ]]

Program SozdText; {Создание текстового файла}
Var
Tx : Text; {Имя текстового файла}
FilName : String; {Имя набора данных}
Stroka : String; {Строка текста}
i,n : Integer; {Вспомогательные переменные}
Begin
Writeln(’Введите имя набора данных’);
Readln (FilName); {Ввести Имя Набора Данных}
Assign(Tx,FilName); {Связать Файл с Набором Данных}
Rewrite (Tx); {Открыть Файл для записи}
Writeln (’Введите количество строк текста’);
Readln(n); {Ввести количество строк}
Writeln (’Введите строки’);
For i:=1 to n do
Begin
Readln (Stroka); {Ввод строки с клавиатуры}
Writeln(Tx,Stroka); {Запись в файл}
End;
Close(Tx); {Закрыть файл}
End.

[DiemonStar]

[ Senya Black ]
в задании у ТС написано, что файл уже есть и нужно его просто переписать в обратном порядке.

Var A, B : file of integer;
     I :LongInt;
     V : integer;
begin
   Assign(A, "SourceFile");
   Assign(B, "DestinationFile");
   Reset(A);
   Rewrite(B);
   
   For I := FileSize(A) downto 0 do
      begin
         Seek(A, I);
         Read(A, V);
         Write(B, V);
      end;
   Close(A);
   Close(B);
end.

Точно не помню, возможно придётся поставить: FileSize(A) -1 в начале цикла.

[Serge_Bliznykov]

во-первых, [ Senya Black ] занимается некропостерством (DiemonStar, Вы хоть бы на дату исходного сообщения посмотрели!!)

во-вторых, та банальность, которую он написал, никакого отношения к исходной задаче не имеет!

в-третьих, подобные задачи на форуме неоднократно решались.
код от DiemonStar вполне себе рабочий, ну, разумеется нужно цикл крутить от FileSize(A)-1 - это уж без всяких "возможно".


ТЕМА ЗАКРЫТА