Выяснить, содержится ли введенная буква в тексте - 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.

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

  1. Программа начинается с объявления переменных: text, litera, i, yes.
  2. Вводится текст и буква с помощью функции readln().
  3. Переменная yes устанавливается в значение false.
  4. Запускается цикл for, который проходит по каждому символу в тексте.
  5. Внутри цикла происходит проверка: если текущий символ в тексте равен введенной букве, то выполняется вывод сообщения о том, что буква встречается в тексте впервые, и переменная yes устанавливается в значение true. Если условие выполняется, то цикл прерывается с помощью оператора break.
  6. После завершения цикла проверяется значение переменной yes. Если оно равно false, то выводится сообщение о том, что буква не встречается в тексте.
  7. Программа заканчивается.

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

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