Написать программу на паскале: удалить все слова, начинающиеся и заканчивающиеся на одну и ту же букву. (написать комментарий(что означает каждая переменная))

214

497

Посмотреть ответы 2

Ответы на вопрос:

arseniybox

Информатика

4,5(7 оценок)

Var s: string; // строка текста i,lf: integer; // lf - номер первого символа отдельного слова в строке // i - переменная цикла, для просмотра строки begin write('строка: '); readln(s); // считывание слова i: =1; lf: =1; // i: =1; - текущий символ слова - первый // lf: =1; - lf указывает на первый символ слова repeat // цикл по строке if s[i]=' ' then // если очередной символ строки - пробел, то begin // начало блока операторов if uppercase(s[i-1])=uppercase(s[lf]) then // если последний символ текущего // слова равен первому символу слова без учета регистра, то begin // начало блока операторов delete(s,lf,i-lf+1); // удаляем слово вместе с пробелом справа i: =lf; // i: =lf; - переменная i указывает на следующее слово end // конец блока операторов else lf: =i+1; // иначе, если первый символ слова не равен // последнему символу слова, устанавливаем lf на // первый символ следующего слова end; // конец блока по условию, что очередной символ - пробел i: =i+1; // переходим к следующему символу в строке until > length(s); // если номер очередного символа строки больше длины // строки, то выход из цикла по строке // если в последнем слове текста есть совпадения // первого и последнего символа if s[length(s)] in ['.','? ','! '] then // если текст заканчивается одним из знаков if s[lf]=s[length(s)-1] then delete(s,lf-1,length(s)-lf+1) // сравниваем с предпоследним // если равны, то удаляем последнее слово else // иначе ничего не делаем else if s[lf]=s[length(s)] then delete(s,lf-1,length(s)-lf+2); // если последний // символ не то сравниваем первый символ последнего // слова с последним символом текста, если равны, // то удаляем последнее слово writeln('новая строка: ',s); // выводим новую строку на экран end. // конец программы строка: это озеро около заповедника. новая строка: это заповедника.строка: около этого заповедника находится озеро. новая строка: этого заповедника находится.строка: озеро около заповедника новая строка: заповедника

НАСТЯ7539

Информатика

4,4(54 оценок)

10000011111111111111110000012=83fffc116

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.