Обединяване на текстови файлове

2 Responses to Обединяване на текстови файлове

1. kaloyan каза:

   15 март, петък в 17:23

   VAR
     New_File,F:text;
     i,j:integer;
     a: string;
   BEGIN
   assign(New_File,'File.txt');
   rewrite(New_File);
   //Първият файл
     assign(F,'File1.txt');
       reset(F);
         read(F,a);
       write(New_File,a);
     close(F);
     erase(F);//Изтриваме файла
   //Втори файл
     assign(F,'File2.txt');
       reset(F);
         read(F,a);
       write(New_File,a);
     close(F);
     erase(F);//Изтриваме файла
   //Втори файл
     assign(F,'File3.txt');
       reset(F);
         read(F,a);
       write(New_File,a);
     close(F);
     erase(F);//Изтриваме файла
   
   close(New_File);
   END.

   Влезте, за да отговорите
   • Данаил каза:

     20 март, сряда в 09:03

     Браво! Даже изтриваш първоначалните файлове :-)

     Влезте, за да отговорите