Переписать компоненты файла 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.

Объяснение кода листинга программы

  1. Объявлены переменные:
    • f, g: Text;
    • s: String;
  2. Открыт файл f для чтения и файл g для записи.
  3. В цикле while считывается каждая строка из файла f.
  4. В каждой строке вставляется буква о в начало с помощью функции Insert('o', s, 1).
  5. Измененная строка записывается в файл g с помощью функции Writeln(g, s).
  6. Закрываются файлы f и g с помощью функций Close(f) и Close(g).
  7. Выводится сообщение Готово с помощью функции Writeln('Готово').

Оцени полезность:

11   голосов , оценка 4.818 из 5
Похожие ответы