Вывести на дисплей заданные строки текстового файла - 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.
Объяснение кода листинга программы
- Переменная
f
инициализируется значением'f.txt'
, что указывает на имя текстового файла для чтения. - Переменная
s
инициализируется значением'string'
, что является типом данных для хранения строк в данном языке программирования. - Строка кода
assign(f, 'f.txt');
устанавливает имя файла для чтения. - Строка кода
reset(f);
сбрасывает файл перед чтением. - Строка кода
writeln('Строки, начинающиеся на
Wили
w:');
выводит на экран сообщение, указывающее на то, какие строки будут прочитаны. - Цикл
while not eof(f)
выполняется до тех пор, пока не будет достигнут конец файла. - Внутри цикла переменная
s
считывается из файла с помощью функцииreadln(f, s)
. - Если длина переменной
s
больше нуля и первый символ строки равен 'W' или 'w', то строка выводится на экран с помощью функцииwriteln(s)
. - После завершения внутреннего цикла переменная
s
сбрасывается с помощью функцииreset(f)
. - Строка кода
writeln('Строки, оканчивающиеся на
!:');
выводит на экран сообщение, указывающее на то, какие строки будут прочитаны. - Цикл
while not eof(f)
выполняется до тех пор, пока не будет достигнут конец файла. - Внутри цикла переменная
s
считывается из файла с помощью функцииreadln(f, s)
. - Если длина переменной
s
больше нуля и последний символ строки равен '!', то строка выводится на экран с помощью функцииwriteln(s)
. - После завершения внутреннего цикла переменная
s
сбрасывается с помощью функцииreset(f)
. - Функция
readln(f, s)
считывает строку из файла и сохраняет ее в переменнойs
. - Конец внешнего цикла
while not eof(f)
. - Программа завершается вызовом функции
readln()
.