Помощь - Поиск - Пользователи - Календарь
Полная версия: Строковый тип данных
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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;


Не претендую, что мой вариант лучше, но как альтернатива сойдёт.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.