Переписать компоненты файла f в файл g, вставляя в начало каждой строки букву "о" - Free Pascal
Формулировка задачи:
Дано текстовый файл f. Переписать компоненты файла f в файл g, вставляя в начало
каждой строки букву "о". Порядок строк должен быть сохранен.
Решение задачи: «Переписать компоненты файла f в файл g, вставляя в начало каждой строки букву "о"»
textual
Листинг программы
Var f,g: Text; s: String; BEGIN Assign(f,'1.txt'); Reset(f); Assign(g,'2.txt'); Rewrite(g); While not Eof(f) do begin Readln(f,s); Insert('o',s,1); Writeln(g,s); end; Close(f); Close(g); Writeln('Готово') END.
Объяснение кода листинга программы
- Объявлены переменные:
- f, g: Text;
- s: String;
- Открыт файл f для чтения и файл g для записи.
- В цикле while считывается каждая строка из файла f.
- В каждой строке вставляется буква
о
в начало с помощью функции Insert('o', s, 1). - Измененная строка записывается в файл g с помощью функции Writeln(g, s).
- Закрываются файлы f и g с помощью функций Close(f) и Close(g).
- Выводится сообщение
Готово
с помощью функции Writeln('Готово').