Question

Написать функцию sogl, которая возвращается True, если символ, полученный функцией в качестве аргумента, является согласной буквой русского алфавита и False если буква гласная Написать на Pascal !!!

Answer 1

===== PascalABC.NET =====

function sogl(c: char) :=

 not (c.ToUpper in ('АЕЁИОУЫЭЮЯ'));

 

// проверка функции

begin

 var s := 'ТестируемРусскийАлфавит';

 foreach var c in s do

   Print(sogl(c));

end.

На самом деле все это будет правильно работать лишь если функции давать исключительно русские буквы.

Answer 2

Конечно! Вот пример функции sogl, реализованной на языке Pascal:

pascalCopy code
function sogl(ch: char): boolean;
const
  vowels: set of char = ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я'];
begin
  ch := lowercase(ch); // Приводим символ к нижнему регистру
  if (ch >= 'а') and (ch <= 'я') then // Проверяем, что символ является буквой русского алфавита
    sogl := not (ch in vowels)
  else
    sogl := false; // Возвращаем false, если символ не является буквой русского алфавита
end;

Пример использования функции:

pascalCopy code
var
  ch: char;
begin
  ch := 'Б';
  if sogl(ch) then
    writeln('Символ ', ch, ' является согласной буквой')
  else
    writeln('Символ ', ch, ' является гласной буквой');
end.

В этом примере мы передаем символ 'Б' в функцию sogl. Если символ является согласной буквой русского алфавита, то функция вернет True и будет выведено сообщение "Символ Б является согласной буквой". В противном случае будет выведено сообщение "Символ Б является гласной буквой".