В строке найти все слова с удвоенной буквой "н" - Turbo Pascal

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

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

Помогите написать программу: С клавиатуры вводится произвольная строка символов. Группы символов, разделенные пробелами и не имеющие пробелов внутри, будем называть словами. Написать программу, которая найдет все слова с удвоенной буквой нн и выведет их на экран. Длина строки не более 100 символов.

Решение задачи: «В строке найти все слова с удвоенной буквой "н"»

textual
Листинг программы
  1. uses crt;
  2. var s,s1:string;
  3.     i,k:byte;
  4. begin
  5. clrscr;
  6. writeln('Введите строку с разделением слов пробелами');
  7. readln(s);
  8. s:=s+' ';
  9. writeln('Слова с удвоенной буквой н');
  10. k:=0;
  11. s1:='';
  12. for i:=1 to length(s) do
  13. if s[i]<>' ' then s1:=s1+s[i]
  14. else
  15.  begin
  16.   if pos('нн',s1)>0 then
  17.    begin
  18.     k:=1;
  19.     writeln(s1);
  20.    end;
  21.   s1:='';
  22.  end;
  23. if k=0 then write('Таких слов нет');
  24. readln
  25. end.

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

  1. В строке объявляются две переменные типа string: s и s1.
  2. Вводится строка с разделением слов пробелами.
  3. Строка s присваивается переменной s, а s1 присваивается пустой строке.
  4. Переменная k инициализируется значением 0.
  5. Выводится сообщение «Слова с удвоенной буквой н».
  6. Запускается цикл for, который проходит по каждому символу в строке s.
  7. Внутри цикла проверяется, является ли текущий символ не пробелом.
  8. Если символ не является пробелом, то он добавляется в строку s1.
  9. Если в строке s1 найдена последовательность из двух символов 'нн', то переменная k инициализируется значением 1, выводится строка s1 и цикл прерывается.
  10. После завершения цикла, если переменная k не была инициализирована, выводится сообщение «Таких слов нет».
  11. Программа завершается после ввода следующей строки.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

12   голосов , оценка 4.417 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы