Преобразовать каждое слово так, чтобы оно заканчивалось заглавной буквой - Pascal

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

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

Дана строка слов, разделенных произвольным количеством пробелов, после последнего слова точка. Преобразовать каждое слово так, чтобы оно заканчивалось заглавной буквой.

Решение задачи: «Преобразовать каждое слово так, чтобы оно заканчивалось заглавной буквой»

textual
Листинг программы
for i:=2 to Length(S) do
if (S[i] in[' ','.'])and not (S[i-1] in [' ','.']) then S[i-1]:=UpCase(S[i-1]);

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

Данный код на языке Pascal выполняет преобразование каждого слова в строке S таким образом, чтобы оно заканчивалось заглавной буквой. Для выполнения этой задачи используется цикл for, который проходит по каждому элементу строки S, начиная со второго и до конца строки (индексы от 2 до Length(S)). Внутри цикла проверяется условие: если текущий символ в строке S является пробелом или точкой, и при этом предыдущий символ в строке не является пробелом или точкой, то текущий символ заменяется на заглавную версию себя. Таким образом, после выполнения данного кода, каждый символ в строке S будет либо заглавной буквой, либо цифрой, либо знаком препинания.

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

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