Задача 14
Дан текстовый файл t. В строках каждую точку заменить многоточием (т.е. тремя точками). Результат записать в файл t1.
Решение
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | var i: integer; F, F1 : Text; s : string; begin Assign(F, 't.txt'); Reset(F); Assign(F1, 't1.txt'); Rewrite(F1); while not eof(F) do begin readln(F, s); for i:= 1 to length(s) do begin write (F1,s[i]); if s[i]='.' then write(F1,'..'); end; writeln(F1); end; Close(F); Close(F1); end. |
Блок-схема