написать функцию Glasn, которая возвращает значение True, если символ-аргумент, является гласной буквой русского алфавита (Паскаль

[Krugan]

Помогите написать функцию Glasn, которая возвращает значение True, если символ,
полученный функцией в качестве аргумента, является гласной буквой российского
алфавита. В паскале. я не знаю как, срочно надо, буду благодарен!

[Stilet]

function Glasn(c:char):Boolean; begin Glasn:=c in ['а','о','е','у','и']; end;

Так пойдет?

[Вадим Мошев]

я, ю, ё, ы
а ещё про регистр буквы не забыть

[Stilet]

я, ю, ё, ы

Да пес с ними

а ещё про регистр буквы не забыть

Ниче. Военком вспомнит

[Serge_Bliznykov]

function Glasn(c: char):boolean;
{Гласные  }
Const
 GlasnyeBukvy : set of char =
 ['а','е','и','о','у','ы','э','ю','я','А','Е','И','О','У','Ы','Э','Ю','Я'];
begin
  Glasn := c in GlasnyeBukvy
end;

Сообщение от Stilet

Да пес с ними
Ниче. Военком вспомнит

ну, может, не в этот раз!

[Krugan]

Сообщение от Serge_Bliznykov

function Glasn(c: char):boolean;
{Гласные  }
Const
 GlasnyeBukvy : set of char =
 ['а','е','и','о','у','ы','э','ю','я','А','Е','И','О','У','Ы','Э','Ю','Я'];
begin
  Glasn := c in GlasnyeBukvy
end;

ну, может, не в этот раз!

Спасибо! но мне б для турбо паскаля...

[ZX Spectrum-128]

Это и есть для ТП.

[Krugan]

Сообщение от ZX Spectrum-128

Это и есть для ТП.

на сколько я знаю то турбо паскаль русский алфавит не поддерживает?!

[ZX Spectrum-128]

Ошибаетесь. Запустите в ТП и проверьте.