Выяснить, входят ли во введенный текст буквы с учетом регистра - Turbo Pascal
Формулировка задачи:
Выяснить, входят ли во введенный текст буквы A, N, D(с учетом верхнего и нижнего регистров).
Решение задачи: «Выяснить, входят ли во введенный текст буквы с учетом регистра»
textual
Листинг программы
uses crt;
var s:string;
i:byte;
f:boolean;
begin
clrscr;
writeln('Введите текст');
readln(s);
for i:=1 to length(s) do
s[i]:=upcase(s[i]);
f:=(pos('A',s)>0)and(pos('D',s)>0)and(pos('N',s)>0);
if f then write('Буквы A,D,N есть в тексте')
else write('Не все буквы A,D,N есть в тексте');
readln
end.
Объяснение кода листинга программы
- В первой строке кода используется библиотека crt, которая является стандартной для языка Turbo Pascal.
- Переменная s типа string предназначена для хранения введенного пользователем текста.
- Переменная i типа byte используется для подсчета количества символов в тексте.
- Переменная f типа boolean используется для проверки наличия в тексте букв A, D и N.
- Строка 'Введите текст' выводится на экран с помощью функции writeln.
- С помощью функции readln считывается введенный пользователем текст.
- С использованием цикла for перебираются все символы в тексте.
- Внутри цикла каждый символ текста приводится к верхнему регистру с помощью функции upcase.
- Переменная f инициализируется значением true. Она будет использоваться для проверки наличия в тексте букв A, D и N.
- С помощью функции pos проверяется наличие каждой из букв A, D и N в тексте. Если буква присутствует, то значение переменной f устанавливается в true.
- После завершения цикла выводится сообщение о наличии или отсутствии в тексте букв A, D и N.
- Код завершается с помощью оператора readln.