Заменить первую строчную букву на заглавную в словах, имеющих выбранную длину - Turbo Pascal
Формулировка задачи:
Заменить первую строчную букву на заглавную в словах, имеющих выбранную длину.
Как упростить код?
Решение задачи: «Заменить первую строчную букву на заглавную в словах, имеющих выбранную длину»
textual
Листинг программы
Program lab; var i, p : integer; s : string; begin readln(s); p := 1; s := s + ' '; for i := 1 to length(s) do begin if s[i] = ' ' then begin if i - p = 5 then s[p] := chr(ord(s[p]) - 32); p := i + 1; end; end; writeln(s); readln; end.
Объяснение кода листинга программы
- В программе объявлены три переменные: i, p и s.
- Вводится строка с помощью функции readln.
- Переменная p устанавливается равной 1.
- Строка s увеличивается на пробел и сохраняется в переменной s.
- Запускается цикл for, который выполняется от 1 до длины строки s.
- Внутри цикла проверяется, является ли текущий символ в строке s пробелом.
- Если символ является пробелом, то выполняется следующая часть условия:
- Проверяется, что текущая позиция (i) больше или равна 5.
- Если условие выполняется, то символ в позиции i в строке s заменяется на заглавную версию символа, используя функцию ord и операцию вычитания.
- После замены символа, переменная i увеличивается на 1.
- После завершения внутреннего цикла, переменная s выводится на экран с помощью функции writeln.
- Программа завершается с помощью функции readln.