В строке найти все слова с удвоенной буквой "н" - Turbo Pascal
Формулировка задачи:
Помогите написать программу: С клавиатуры вводится произвольная строка символов. Группы символов, разделенные пробелами и не имеющие пробелов внутри, будем называть словами. Написать программу, которая найдет все слова с удвоенной буквой нн и выведет их на экран. Длина строки не более 100 символов.
Решение задачи: «В строке найти все слова с удвоенной буквой "н"»
textual
Листинг программы
- uses crt;
- var s,s1:string;
- i,k:byte;
- begin
- clrscr;
- writeln('Введите строку с разделением слов пробелами');
- readln(s);
- s:=s+' ';
- writeln('Слова с удвоенной буквой н');
- k:=0;
- s1:='';
- for i:=1 to length(s) do
- if s[i]<>' ' then s1:=s1+s[i]
- else
- begin
- if pos('нн',s1)>0 then
- begin
- k:=1;
- writeln(s1);
- end;
- s1:='';
- end;
- if k=0 then write('Таких слов нет');
- readln
- end.
Объяснение кода листинга программы
- В строке объявляются две переменные типа string: s и s1.
- Вводится строка с разделением слов пробелами.
- Строка s присваивается переменной s, а s1 присваивается пустой строке.
- Переменная k инициализируется значением 0.
- Выводится сообщение «Слова с удвоенной буквой н».
- Запускается цикл for, который проходит по каждому символу в строке s.
- Внутри цикла проверяется, является ли текущий символ не пробелом.
- Если символ не является пробелом, то он добавляется в строку s1.
- Если в строке s1 найдена последовательность из двух символов 'нн', то переменная k инициализируется значением 1, выводится строка s1 и цикл прерывается.
- После завершения цикла, если переменная k не была инициализирована, выводится сообщение «Таких слов нет».
- Программа завершается после ввода следующей строки.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д