Текстовый файл поменять порядок строк

BlueScreen666

Дан текстовый файл переписать в другой файл, поменяв местами строки в обратном порядке. Без использования массивов
3 ответа

BlueScreen666

Невозможно! Ибо для работы такой программы понадобится переменная строкового типа, которая и есть массив…Вернее, это возможно, но программа получится гораздо длиннее, чем вы это себе представляете.


BlueScreen666

uses crt;
var f,g:text;
    i,j,k:integer;
    s:string;
begin
clrscr;
assign(f,'input.txt');{файл лежит в папке с программой}
reset(f);
assign(g,'output.txt');
rewrite(g);
k:=0;
while not eof(f) do
 begin
  readln(f,s);
  k:=k+1;
 end;
writeln(g,s);
for i:=1 to k-1 do
 begin
  reset(f);
  for j:=1 to k-i do
  readln(f,s);
  writeln(g,s);
 end;
close(f);
close(g);
write('Файл переписан');
readln
end.


BlueScreen666

var f,g:text;
    s1:string;
    i,R,a:integer;
begin
R:=1;
assign(f,'1.txt');
reset(f);
assign(g,'2.txt');
rewrite(g);
 
for a:=1 to 4-1 do
begin
for i:=1 to 4-R do
begin
readln(f,s1);
if i=4-R then begin
writeln(g,s1); inc(R);Reset (f);
end;
end;
end;
 
close(f);
close(g);
end.
Вот сделал, когда 3 строки в файле. Если сделать перед самой процедурой замены подсчет кол-ва строк, то все получится. Не могу доперетьНу все, сделал. Рад, что сам