Как проверить гласная или согласная буква?

[TwiX]

У меня есть способ, но он очень долгий...

[mihali4]

"гласная"...
Составить массивы буковок - гласных и согласных.
И проверять...
Ничего другого и быть не "могет"

[Roof]

const
  //Список гласных и согласных букв задаём в виде множеств.
  Vovels = ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я'];
  Consonants = [
    'б', 'в', 'г', 'д', 'ж', 'з', 'й', 'к', 'л', 'м',
    'н', 'п', 'р', 'с', 'т', 'ф', 'х', 'ц', 'ч', 'ш', 'щ'
  ];
  //'ъ', 'ь' - Это буквы, не обозначающие отдельных звуков.
  //Т. е. не являющиеся ни гласными ни согласными.

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
begin
 for i := 1 to Length(Edit1.Text) do begin
   if Edit1.Text[i] in Vovels then begin
     Label1.Caption:=  Label1.Caption + Edit1.Text[i];
   end
   else
     if Edit1.Text[i] in Consonants then begin
       Label2.Caption:=  Label2.Caption + Edit1.Text[i];;
     end;
 end;
end;

[TwiX]

Записал все в буквы в строку и так проверяю.

Roof, твой код в паскале прокатит?

[Roof]

2 TwiX - ну да, конечно прокатит.

[IT-man]

не в тему
2Twix отсюда задачки?