Строковый тип данных Опции

[kekc]

Пожалусто помогите решить задачку:
Определить число вхождения любых гласных русских букв в строку введенную с клавиатуры.

[HelpAusHeaven]

Функция считающая кол-во русских гласных букв:

Код

function CountRussianChars(Str: String):Integer;
const Chars = 'аеиоуыюяАЕИОУЫЮЯ';
var I, I1: Integer;
begin
 result := 0;
 for I := 1 to Length(Str) do
   for I1 := 1 to Length(Chars) do
     if (Str[I] = Chars[I1]) then result := result + 1;
end;

[BlackShadow]

Альтернативный вариант:

Код

Function CountRussianChars(Str:String):Integer;
Const
 Chars:Set Of Char = ['а','е','и','о','у','ы','ю','я','А','Е','И','О','У','Ы','Ю','Я'];
Var
 i:Integer;
Begin
 Result:=0;
 For i:=1 To Length(Str) Do
   If Str[i] In Chars Then
     Inc(Result)
End;

Не претендую, что мой вариант лучше, но как альтернатива сойдёт.

Сообщение отредактировано: volvo - 22.01.2005 4:42