Дан текстовый файл, состоящий из N строк. Организовать замену символов в файле. «Старый» и «новый» символы вводятся с клавиатуры.
Решение:
|
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 file_3;
uses crt; var n, i: integer; s: string; c1, c2: char; f1, f2: text; begin clrscr; assign(f1, ‘fail1.txt’); assign(f2, ‘fail2.txt’); rewrite(f1); write(‘Количество строк > ‘); read(n); for i:=1 to n do begin write(i, ‘ строка > ‘); read(s); writeln(f1, s); end; reset(f1); rewrite(f2); write(‘Убрать символ > ‘); read(c1); write(‘Вставить символ > ‘); read(c2); while not eof(f1) do begin readln(f1, s); for i:=1 to length(s) do if s[i]=c1 then write(f2, c2) else write(f2, s[i]); writeln; end; reset(f2); writeln(‘Результат:’); while not eof(f2) do begin readln(f2, s); writeln(s) end; close(f1); close(f2); readkey; end. |