Системное программирование в UNIX средствами Free Pascal




. Обработка текста - часть 13


     readkey;

    end;

    close(f);

END.

Упражнение 13.23. Составьте программу вывода строк файла в инверсном отображении, причем порядок символов в строках также следует инвертировать.

uses linux,sysutils ;

var f1,f2:text;

    kol_strok,

    i,j,k:longint;

    s:string;

begin

if paramcount<>2 then

  begin

   writeln('Неправильные аргументы командной строки ',paramcount);

   halt(1);

  end;

  

assign(f1,paramstr(1)); 

assign(f2,paramstr(2));

reset(f1);

rewrite(f2);

kol_strok:=0;

while  not eof(f1) do  {Подсчет количества строк в файле}

begin  

readln(f1);

inc(kol_strok);

end;

for i:=kol_strok downto 1 do

begin

  reset(f1);

 

  for j:=1 to i do {Установка на нужную строку и соответствнно ее считуем}

   begin

    readln(f1,s);

   end;

  

  for k:=length(s) downto 1 do {Запись посимвольно в файл начиная с конца строчки}

   begin

   write(f2,s[k]);

   end;

  writeln(f2);

  

end;

writeln(kol_strok);

     

close(f1);

close(f2);

end.




Содержание  Назад  Вперед