Автор: kekc 28.04.2004 17:02
Пожалусто помогите решить задачку:
Определить число вхождения любых гласных русских букв в строку введенную с клавиатуры.
Автор: HelpAusHeaven 28.04.2004 17:31
Функция считающая кол-во русских гласных букв:
Код
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 28.04.2004 18:03
Альтернативный вариант:
Код
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;
Не претендую, что мой вариант лучше, но как альтернатива сойдёт.