Text49. Дан текстовый файл и файл целых чисел. Добавить в конец каждой строки текстового файла изображение соответствующего числа из файла целых чисел. Если файл целых чисел короче текстового файла, то оставшиеся строки текстового файла не изменять.
Решение:
|
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 |
program Text49; var F_in_T,F_out: Text; F_in_I: file of integer; Name1,Name2,S,stemp:string; I:integer; begin Write('File Text name: '); Readln(Name1); Assign(F_in_T,Name1); Reset(F_in_T); Assign(F_out,'~'+Name1); Rewrite(F_out); Write('File Integer name: '); Readln(Name2); Assign(F_in_I,Name2); Reset(F_in_I); While not eof(F_in_T) do begin Readln(F_in_T,S); if not eof(F_in_I) then begin Read(F_in_I,I); str(I,stemp); S:=S+stemp; end; Writeln(F_out,S); end; Close(F_in_T); Close(F_in_I); Close(F_out); Erase(F_in_T); Rename(F_out,Name1); end. |
Другие задачи из раздела Text можно посмотреть здесь.
Комментарии: