File47. Даны два файла одного и того же типа. Добавить к первому файлу содержимое второго файла, а ко второму файлу — содержимое первого.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 |
program File47; var N,i:Integer; Buf : Char; Name1,Name2: String; F1,F2,F_temp :File; begin Write('File1: '); Readln(Name1); Write('File2: '); Readln(Name2); Assign(F1,Name1); Rename(F1,'~'+Name1); Assign(F2,Name2); Rename(F2,'~'+Name2); Assign(F_temp,Name1); Reset(F2,1); Reset(F1,1); ReWrite(F_temp,1); while not Eof(F1) do begin BlockRead(F1, Buf, SizeOf(char)); BlockWrite(F_temp, Buf, sizeof(char)); end; while not Eof(F2) do begin BlockRead(F2, Buf, SizeOf(char)); BlockWrite(F_temp, Buf, sizeof(char)); end; Close(F_temp); seek(F1,0); seek(F2,0); Assign(F_temp,Name2); ReWrite(F_temp,1); while not Eof(F2) do begin BlockRead(F2, Buf, SizeOf(char)); BlockWrite(F_temp, Buf, sizeof(char)); end; while not Eof(F1) do begin BlockRead(F1, Buf, SizeOf(char)); BlockWrite(F_temp, Buf, sizeof(char)); end; Close(F_temp); Close(F1); Close(F2); erase(F1); erase(F2); end. |
Другие задачи из раздела File можно посмотреть здесь.
Комментарии: