Выяснить, содержится ли введенная буква в тексте - Pascal ABC
Формулировка задачи:
Приветствую!
Помогите решить проблему.
Задача:
Даётся текст и буква.Выяснить если данная буква содержится в тексте.Если это так,показать(writeln) первую позицию буквы.
Само условие я выполнил,но не могу показать,где буква фигурирует первый раз.
Извиняюсь за некорректные высказывания
Прошу не посылать меня в другие темы,так как ответа я не нашел
Решение задачи: «Выяснить, содержится ли введенная буква в тексте»
textual
Листинг программы
program NR; var text: string; litera: char; i: integer; yes: boolean; begin write('Введите текст:');readln(text); write('Введите букву:');readln(litera); yes := false; for i := 1 to length(text) do begin if (text[i] = litera) then begin writeln('Буква ', litera, ' встречается в данном тексте первый раз на позиции: ', i); yes := true; break; end; end; if not yes then writeln('Буква ', litera, ' не встречается в данном тексте'); end.
Объяснение кода листинга программы
- Программа начинается с объявления переменных: text, litera, i, yes.
- Вводится текст и буква с помощью функции readln().
- Переменная yes устанавливается в значение false.
- Запускается цикл for, который проходит по каждому символу в тексте.
- Внутри цикла происходит проверка: если текущий символ в тексте равен введенной букве, то выполняется вывод сообщения о том, что буква встречается в тексте впервые, и переменная yes устанавливается в значение true. Если условие выполняется, то цикл прерывается с помощью оператора break.
- После завершения цикла проверяется значение переменной yes. Если оно равно false, то выводится сообщение о том, что буква не встречается в тексте.
- Программа заканчивается.