Функция для подсчёта гласных [Delphi]

[Serge_Bliznykov]

"смешались в кучу кони, люди.."

gabach, есть такая штука, как кодирование символов. И, если с английскими буквами всё более менее ясно, то с русскими возникает полная чехарда.

Вот подумайте, для чего Вам в программе понадобилась функция rus()?!

а для того, чтобы кириллица, написанная в тексте программы (который в кодировке ANSI - она же Windows-1251) выводилась в консоли, где для кириллицы используется совсем другая кодировка (там кодировка OEM, она же DOS, она же 866)...

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

например, так:

//Функция для подсчёта гласных букв
Function KolGlas(const Slovo:ShortString):byte;
const sGlas : shortstring = 'АЕЁИОУЫЭЮЯаеёиоуыэюя';
var
  i:byte;
begin
  result:=0;
  for i:=1 to Length(Slovo) do
    if Pos(Slovo[i], rus(sGlas))>0 
      then result:=result+1;
end;

ну, или, если Вам угодно использовать кодировку DOS в виде кодов, как это Вы делаете в функции rus(), то извольте:

//Функция для подсчёта гласных букв
Function KolGlas(const Slovo:ShortString):byte;
var
  i:byte;
begin
  result:=0;
  for i:=1 to Length(Slovo) do
  if Slovo[i] in [#128,#133,#240,#136,#142,#147,#155,#157,#158,#159,
                    #160,#165,#241,#168,#174,#227,#235,#237,#238,#239]
  then result:=result+1;
end;

[gabach]

Serge_Bliznykov, спасибо большое, просто программированием занимаюсь четвёртый месяц и нам ничего не объясняли про кодировку, да и функцию rus() давали готовую из учебника, не объясняя что и зачем

[Serge_Bliznykov]

gabach, всегда пожалуйста!

Если остались какие-то вопросы - можете задавать...

p.s. а если это из учебника код, то Вы с этим учебником поаккуратней, его писал человек, для которого Delphi - "не родной"

p.p.s. И если уж заморачиваться с консолью (и кодировками), то нужно не играться с кодами символов, нужно поручить Windows функцию перекодировки из Oem в ANSI (и наоборот).