Заменить первую строчную букву на заглавную в словах, имеющих выбранную длину - 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.

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

  1. В программе объявлены три переменные: i, p и s.
  2. Вводится строка с помощью функции readln.
  3. Переменная p устанавливается равной 1.
  4. Строка s увеличивается на пробел и сохраняется в переменной s.
  5. Запускается цикл for, который выполняется от 1 до длины строки s.
  6. Внутри цикла проверяется, является ли текущий символ в строке s пробелом.
  7. Если символ является пробелом, то выполняется следующая часть условия:
    • Проверяется, что текущая позиция (i) больше или равна 5.
    • Если условие выполняется, то символ в позиции i в строке s заменяется на заглавную версию символа, используя функцию ord и операцию вычитания.
    • После замены символа, переменная i увеличивается на 1.
  8. После завершения внутреннего цикла, переменная s выводится на экран с помощью функции writeln.
  9. Программа завершается с помощью функции readln.

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

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