Добавить букву W в конец каждой строки текстового файла - Pascal

Узнай цену своей работы

Формулировка задачи:

Даны текстовый файл f. Добавить букву W на конец каждой строки текстового файла

Решение задачи: «Добавить букву W в конец каждой строки текстового файла»

textual
Листинг программы
const fName='a.txt';
var s: String;
begin
  Assign(input,fName); Reset(input);
  Assign(output,'b.txt'); Rewrite(output);
  while not EoF do begin
    ReadLn(s); WriteLn(s,'W');
  end;
  Close(input); Close(output);
  Erase(input); Rename(output,fName);
end.

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

  1. Объявляется константа fName и присваивается значение a.txt.
  2. Объявляется переменная s типа String.
  3. Устанавливается связь с файлом a.txt для чтения.
  4. Создается новый файл b.txt для записи.
  5. Начинается цикл, выполняемый до тех пор, пока не будет достигнут конец файла.
  6. В каждой итерации цикла происходит чтение строки из файла и запись этой строки в новый файл b.txt.
  7. Закрывается связь с файлом a.txt и b.txt.
  8. Удаляется исходный файл a.txt.
  9. Переименовывается файл b.txt в a.txt. Данный код считывает содержимое текстового файла a.txt, добавляет букву W в конец каждой строки и сохраняет результат в файл a.txt.

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

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