Задача:

Создайте функцию, которая принимает строку и возвращает количество символов в ней без учета пробелов. Pascal.

План:

• Алгоритм решения
• Код программы
• Примеры входных данных и ожидаемых результатов
• Объяснение кода программы
• Блок-схема

Алгоритм решения:

1. Определение функции CountNonSpaceChars:

   • Принимает строку s в качестве параметра
   • Инициализирует переменную count значением 0

2. Цикл по символам строки:

   • Проходит по каждому символу строки от 1 до длины строки
   • Если текущий символ не является пробелом:
     • Увеличивает count на 1

3. Возвращает значение count

4. В основной программе:

   • Запрашивает ввод строки у пользователя
   • Вызывает функцию CountNonSpaceChars с введенной строкой
   • Выводит результат (количество символов без учета пробелов)

Код программы на языке Pascal:

function CountNonSpaceChars(s: string): integer;
var
  i, count: integer;
begin
  count := 0;
  for i := 1 to Length(s) do
    if s[i] <> ' ' then
      count := count + 1;
  CountNonSpaceChars := count;
end;

var
  input: string;
  result: integer;

begin
  Write('Enter a string: ');
  ReadLn(input);
  result := CountNonSpaceChars(input);
  WriteLn('Number of non-space characters: ', result);
end.

Примеры входных данных и ожидаемых результатов:

Пример 1:
Вход: "Hello World"
Ожидаемый результат: 10

Пример 2:
Вход: "Programming is fun!"
Ожидаемый результат: 18

Пример 3:
Вход: "   Spaces   at   edges   "
Ожидаемый результат: 15

Пример 4:
Вход: "NoSpacesAtAll"
Ожидаемый результат: 13

Пример 5:
Вход: " "
Ожидаемый результат: 0

Пример 6:
Вход: "123 456 789"
Ожидаемый результат: 9

Пример 7:
Вход: "Special@#$%^&*()Characters!"
Ожидаемый результат: 26

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

1. Объявление функции:

   function CountNonSpaceChars(s: string): integer;

   Объявляется функция CountNonSpaceChars, которая принимает строку s и возвращает целое число.

2. Объявление локальных переменных:

   var
     i, count: integer;

   Объявляются две целочисленные переменные: i для итерации и count для подсчета символов.

3. Инициализация счетчика:

   count := 0;

   Счетчик count инициализируется нулем.

4. Цикл для перебора символов:

   for i := 1 to Length(s) do

   Запускается цикл, который перебирает все символы строки от 1 до длины строки.

5. Проверка символа на пробел:

   if s[i] <> ' ' then

   Проверяется, не является ли текущий символ пробелом.

6. Увеличение счетчика:

   count := count + 1;

   Если символ не пробел, счетчик увеличивается на 1.

7. Возврат результата:

   CountNonSpaceChars := count;

   Функция возвращает итоговое значение счетчика.

8. Объявление переменных в основной программе:

   var
     input: string;
     result: integer;

   Объявляются переменные для ввода строки и хранения результата.

9. Ввод строки:

   Write('Enter a string: ');
   ReadLn(input);

   Выводится приглашение и считывается введенная пользователем строка.

10. Вызов функции:

    result := CountNonSpaceChars(input);

    Вызывается функция CountNonSpaceChars с введенной строкой, результат сохраняется в result.

11. Вывод результата:

    WriteLn('Number of non-space characters: ', result);

    Выводится количество символов без учета пробелов.

Блок-схема:

Нажмите на изображение, чтобы увеличить

Блок-схема к задаче: Создайте функцию, которая принимает строку и возвращает количество символов в ней без учета пробелов.