Котлета Бургер

Паскаль. Подсчитать количество гласных букв в строке, введенной с экрана.

Одной из полезных задач, которую можно решить с помощью языка программирования Паскаль, является подсчет количества гласных букв в строке, которую пользователь вводит с экрана. Данная функциональность может быть полезна в различных ситуациях, начиная от анализа текста и заканчивая созданием программы для работы со строками.

Описание задачи:

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

  1. Создаем переменную для подсчета количества гласных букв и инициализируем ее нулем.
  2. Запрашиваем у пользователя ввод строки с клавиатуры.
  3. Перебираем все символы в строке.
  4. Для каждого символа проверяем, является ли он гласной буквой.
  5. Если символ является гласной буквой, увеличиваем счетчик гласных букв на 1.
  6. По завершении перебора всех символов выводим результат на экран.

Пример кода на Паскале (Delphi) для решения данной задачи:

program CountVowels;

var
  str: string;
  count: integer;
  i: integer;
  ch: char;
  
begin
  count := 0;
  
  write('Введите строку: ');
  readln(str);
  
  for i := 1 to length(str) do
  begin
    ch := lowercase(str[i]);
    
    if (ch = 'a') or (ch = 'e') or (ch = 'i') or (ch = 'o') or (ch = 'u') then
      count := count + 1;
  end;
  
  writeln('Количество гласных букв: ', count);
  
  readln;
end.

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