Подсчитать гласные буквы в предложении.

[glebast]

Доброго времени суток!
Есть одна задачка, нужно решить.
Буду очень благодарен!

Дана строка-предложение на русском языке.
Подсчитать кол-во содержащихся в строке гласных букв.

[Hacker19_90]

var
    gl: set of char = ('а','е','ё','и','о','у','ы','э','ю','я');
..........................
count := 0;
for i := 1 to length(s) do
    if s[i] in gl then Inc(count);
Writeln (count);

[Serge_Bliznykov]

угу. точно.
только
1) я бы множесто гласных задал через константу (Const )
2) и добавил туда ПРОПИСНЫЕ буквы..
примерно так:

Const
 {русские гласные}
 gl=['А','а','Е','е','Ё','ё','И','и','О','о','У','у','ы',
          'Э','э','Ю','ю','Я','я'];

[Hacker19_90]

Сообщение от Serge_Bliznykov

угу. точно.
только
1) я бы множесто гласных задал через константу (Const )
2) и добавил туда ПРОПИСНЫЕ буквы..
примерно так:

Const
 {русские гласные}
 gl=['А','а','Е','е','Ё','ё','И','и','О','о','У','у','ы',
          'Э','э','Ю','ю','Я','я'];

+1 согласен

[glebast]

Ну ребята, у меня не так не так не получается

[glebast]

uses crt;
const
 gl=['а','е','ё','и','о','у','ы','э','ю','я'];
var
    i,count:integer;
    s:string;
begin

read (s[i]);
count := 0;
for i := 1 to length(s) do
 begin
    if s[i] in gl then count:=count+1;
 end;
Writeln (count);
end.

так выводит все время 0

[Hacker19_90]

read (s[i]);

меняйте на

readln (s);

[glebast]

Точно! Супер! Спасибо!!!

[Rififi]

glebast

решение в стиле C++ :D

Дана строка-предложение на русском языке.
Подсчитать кол-во содержащихся в строке гласных букв.

#include <iostream>
#include <locale>

template <typename _Elem>
struct ci_char_traits : public std::char_traits<_Elem>
{
	static bool eq(_Elem c1, _Elem c2 )
	{ return std::toupper(c1, std::locale()) == std::toupper(c2, std::locale()); }

	static bool ne(_Elem c1, _Elem c2 )
	{ return std::toupper(c1, std::locale()) != std::toupper(c2, std::locale()); }

	static bool lt(_Elem c1, _Elem c2 )
	{ return std::toupper(c1, std::locale()) < std::toupper(c2, std::locale()); }

	static int compare(const _Elem* s1, const _Elem* s2, size_t n)
	{ return memicmp(s1, s2, n); }

	static const _Elem* find(const _Elem* s, int n, _Elem ch)
	{
		while (n-- > 0 && std::toupper(*s, std::locale()) != std::toupper(ch, std::locale()))
			++s;
		
		return s;
	}
};

typedef std::basic_string<char, ci_char_traits<char> > istring;


int main()
{
	std::locale::global(std::locale(""));

	const istring vowels = "аеёиоуыэюя";

	istring s = "АЕЁИОУЫЭЮЯ";

	size_t count = 0;
	for (istring::const_iterator it = s.begin(); it != s.end(); ++it)
	{
		if (vowels.find(*it) != istring::npos)
			count++;
	}

	std::cout << count << std::endl;
	
	return 0;
}