задача на сортировку

[arhangel2540]

нужно создать программу которая позволяет определить является ли буква согласной или гласной

[Arhangel7]

и в чем проблема?
можно писать через множество

[Serge_Bliznykov]

задача на сортировку

и при чём здесь сортировка?!

[Кольша]

var
s:string[1];
begin
s:='а';
s:= AnsiUpperCase(s);//а, у, о, ы, и, э, я, ю, ё, е
if (s='А') or (s='О') or 
(s='Я') or (s='Е') or
(s='Ё') or (s='Ю') or 
(s='У') or (s='Ё') or 
(s='И')then
showmessage(s+':гласная') else showmessage(s+':соглассная')
end;

[arhangel2540]

спасибо но выдал ошибку неизвестный идентехикатор AnsiUpperCase

[Кольша]

это я просто в делфи для того чтобы поднять регистр буквы тогда добавьте еще проверку на маленькие буквы

[arhangel2540]

если бы я знал как делать. я с нуля паскаль изучаю.

[Serge_Bliznykov]

можно по разному решать подобную задачу.
можно, как и предложил Arhangel7 в пост #2 через множества:

CONST
  AllRus : set of char = [
      'А','Б','В','Г','Д','Е','Ё','Ж','З','И','Й','К','Л','М','Н','О','П','Р','С','Т',
      'У','Ф','Х','Ц','Ч','Ш','Щ','Ъ','Ы','Ь','Э','Ю','Я',
      'а','б','в','г','д','е','ё','ж','з','и','й','к','л','м','н','о','п','р','с','т',
      'у','ф','х','ц','ч','ш','щ','ъ','ы','ь','э','ю','я' ];
  RusGlas : set of Char = ['а', 'у', 'ы', 'о', 'э', 'и', 'я', 'ю', 'ё', 'е',
                           'А', 'У', 'Ы', 'О', 'Э', 'И', 'Я', 'Ю', 'Ё', 'Е' ];

var 
 ch : char;
begin
  Writeln;
  Write('Введите одну русскую букву: ');
  Readln(ch);

  if not (ch in AllRus) then WriteLn('Вы ввели не русскую букву!')
  else 
     {буква русская, тогда проверим, гласная ли она}
     if ch in RusGlas then WriteLn('Гласная буква')
     else WriteLn('Согласная буква');
 
  Readln;
end.

но я всё равно не понимаю, при чём здесь сортировка?!..