Вывести на дисплей заданные строки текстового файла - Pascal ABC

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

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

Дан файл f, элементы которого являются строками: 1. Выведите на экран все строки файла, начинающиеся с символа ‘w’ или ‘W’ 2. все строки файла, оканчивающиеся на символ ‘!'

Решение задачи: «Вывести на дисплей заданные строки текстового файла»

textual
Листинг программы
var f: text;
    s: string;
begin
  assign(f, 'f.txt');
  reset(f);
  writeln('Строки, начинающиеся на "W" или "w":');
  while not eof(f) do
    begin
      readln(f, s);
      if (length(s) > 0) and (s[1] in ['W', 'w']) then writeln(s)
    end;
  writeln;
  reset(f);
  writeln('Строки, оканчивающиеся на "!":');
  while not eof(f) do
    begin
      readln(f, s);
      if (length(s) > 0) and (s[length(s)] = '!') then writeln(s)
    end;
  readln
end.

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

  1. Переменная f инициализируется значением 'f.txt', что указывает на имя текстового файла для чтения.
  2. Переменная s инициализируется значением 'string', что является типом данных для хранения строк в данном языке программирования.
  3. Строка кода assign(f, 'f.txt'); устанавливает имя файла для чтения.
  4. Строка кода reset(f); сбрасывает файл перед чтением.
  5. Строка кода writeln('Строки, начинающиеся наWилиw:'); выводит на экран сообщение, указывающее на то, какие строки будут прочитаны.
  6. Цикл while not eof(f) выполняется до тех пор, пока не будет достигнут конец файла.
  7. Внутри цикла переменная s считывается из файла с помощью функции readln(f, s).
  8. Если длина переменной s больше нуля и первый символ строки равен 'W' или 'w', то строка выводится на экран с помощью функции writeln(s).
  9. После завершения внутреннего цикла переменная s сбрасывается с помощью функции reset(f).
  10. Строка кода writeln('Строки, оканчивающиеся на!:'); выводит на экран сообщение, указывающее на то, какие строки будут прочитаны.
  11. Цикл while not eof(f) выполняется до тех пор, пока не будет достигнут конец файла.
  12. Внутри цикла переменная s считывается из файла с помощью функции readln(f, s).
  13. Если длина переменной s больше нуля и последний символ строки равен '!', то строка выводится на экран с помощью функции writeln(s).
  14. После завершения внутреннего цикла переменная s сбрасывается с помощью функции reset(f).
  15. Функция readln(f, s) считывает строку из файла и сохраняет ее в переменной s.
  16. Конец внешнего цикла while not eof(f).
  17. Программа завершается вызовом функции readln().

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

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