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

Отворете Notepad и създайте 3 файла в директорията на проекта. После направете програма, която ги обединява в един.

Публикувано в 10в с етикети . Постоянна връзка.

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

  1. kaloyan каза:
    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.

Вашият коментар