Задача:

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

План:

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

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

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

   • Принимает строку str в качестве входного параметра
   • Возвращает целое число (количество гласных)

2. Инициализация:

   • Создание множества vowels, содержащего все гласные буквы (в нижнем и верхнем регистре)
   • Инициализация переменной Result (результат) нулем

3. Подсчет гласных:

   • Цикл for проходит по каждому символу входной строки
   • Проверка каждого символа на принадлежность к множеству vowels
   • Если символ является гласной, увеличение Result на 1

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

   • Функция возвращает значение Result

5. Основная программа:

   • Запрос ввода строки от пользователя
   • Вызов функции CountVowels с введенной строкой
   • Вывод количества гласных на экран

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

function CountVowels(str: string): integer;
var
  i: integer;
  vowels: set of char;
begin
  vowels := ['a', 'e', 'i', 'o', 'u', 'A', 'E', 'I', 'O', 'U'];
  Result := 0;
  
  for i := 1 to Length(str) do
  begin
    if str[i] in vowels then
      Inc(Result);
  end;
end;

var
  input: string;
  vowelCount: integer;

begin
  Write('Enter a string: ');
  ReadLn(input);
  
  vowelCount := CountVowels(input);
  
  WriteLn('Number of vowels: ', vowelCount);
end.

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

Input: "Hello World"
Output: Number of vowels: 3

Input: "Programming is fun"
Output: Number of vowels: 5

Input: "aEiOu"
Output: Number of vowels: 5

Input: "RHYTHM"
Output: Number of vowels: 0

Input: "The quick brown fox jumps over the lazy dog"
Output: Number of vowels: 11

Input: "1234567890"
Output: Number of vowels: 0

Input: "AaEeIiOoUu"
Output: Number of vowels: 10

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

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

   function CountVowels(str: string): integer;

   Определяется функция CountVowels, которая принимает строку str и возвращает целое число (количество гласных).

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

   var
     i: integer;
     vowels: set of char;

   Объявляются локальные переменные: i для итерации и vowels как множество символов для хранения гласных букв.

3. Инициализация множества гласных:

   vowels := ['a', 'e', 'i', 'o', 'u', 'A', 'E', 'I', 'O', 'U'];

   Множество vowels заполняется гласными буквами в нижнем и верхнем регистрах.

4. Инициализация результата:

   Result := 0;

   Переменная Result (неявно объявленная в функции) инициализируется нулем.

5. Цикл подсчета гласных:

   for i := 1 to Length(str) do
   begin
     if str[i] in vowels then
       Inc(Result);
   end;

   Цикл проходит по каждому символу строки. Если символ находится в множестве vowels, счетчик Result увеличивается на 1.

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

   var
     input: string;
     vowelCount: integer;

   Объявляются переменные для хранения введенной строки и количества гласных.

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

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

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

8. Вызов функции и вывод результата:

   vowelCount := CountVowels(input);
   WriteLn('Number of vowels: ', vowelCount);

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

Блок-схема:

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

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