Text17. Даны два текстовых файла. Добавить в конец каждой строки первого файла соответствующую строку второго файла. Если второй файл короче первого, то оставшиеся строки первого файла не изменять.
Решение:
|
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 |
program Text17; var F1_in,F2_in,F_out: Text; Name1,Name2,line: string; begin Write('File1 name: '); Readln(Name1); Write('File2 name: '); Readln(Name2); Assign(F1_in,Name1); Assign(F2_in,Name2); Assign(F_out,'~'+Name1); Reset(F1_in); Reset(F2_in); Rewrite(F_out); While not eof(F1_in) do begin Readln(F1_in,line); Write(F_out,line); if not eof(F2_in) then Readln(F2_in,line) else line:=''; Writeln(F_out,line); end; Close(F1_in); Close(F2_in); Close(F_out); Erase(F1_in); Rename(F_out,Name1); end. |
Другие задачи из раздела Text можно посмотреть здесь.
Комментарии: