Задача: Строка содержит произвольный русский текст. Проверить, каких букв в нем больше: гласных или согласных

[Backward]

Здравствуйте. Есть задача и её решение. Но мне хотелось бы узнать. Можно ли её выполнить без констант? Допустим с помощью массивов или просто строкового типа данных. Если можно, то как?

Задача:

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

Код программы:

program example1; 
const 
  glasn=['а','е','и','о','у','ы','э','ю','я']; 
   soglas=['б','в','г','д','ж','з','й','л','м',
         'н','р','к','п','с','т','ф','х','ц','ч','ш','щ'];
 var
   st: string; 
     g,s,i:integer; 
begin 
  write('Введите строку> '); readln(st); 
    g:=0; s:=0; 
      for i:= 1 to length(st) do 
        if st[i] in glasn then inc(g) else if st[i] in soglas then inc(s);
        if g> s then writeln('Гласных больше')
    else if g< s then writeln('Согласных больше')
  else writeln('Согласных и гласных букв поровну');
 readln; 
end.

Язык: Free Pascal

[Utkin]

Можно например все гласные запихнуть в одну строку. Затем своей функцией в цикле проверять присутствует ли символ в строке с гласными. Ну и с согласными аналогично.
Если же понимать Ваш вопрос:

Можно ли её выполнить без констант?

буквально, то да, можно Ваши множества просто объявить переменными, а не константами
И еще: я с русским не дружу, потому если буквы бывают только гласными и согласными, то

if st[i] in glasn then inc(g) else if st[i] in soglas then inc(s);

какое-то усложнение, достаточн

if st[i] in glasn then inc(g) else  inc(s);

Соответственно второе множество нах. Но повторюсь - при условии что все буквы делятся на гласные и согласные.

[Backward]

Utkin, а какой функцией можно сравнить со строкой?

Вот то, что у меня получилось. Но он постоянно в результате выдаёт, что согласных больше.

[Stilet]

for i:=1 to Length(st) do
 if st[i] in glasn then inc(g) else inc(s);

pos() убери.

[Backward]

Stilet, но ведь я хочу без констант. А in - это к константам относится вроде.

[Stilet]

if st[i] in ['а','е','и','о','у','ы','э','ю','я']

Подходит?
Учти - без констант ты никак не обойдешся ни в одной программе

[Backward]

А возможно ли тут использовать массив?

И еще, вот текст программы, которой у меня получилась. Но она работает не корректно. Кто знает, в чём дело?

program text;
var st:string;
    g,s,i:integer;
begin;
        write('Введите строку: '); readln(st);
        for i:=1 to length(st) do
                if st[i] in ['а','е','ё','и','о','у','ы','э','ю','я'] then
                        inc(g)
                else
                        inc(s);
        if g>s then
                writeln('Гласных больше')
        else
                if s>g then
                        writeln('Согласных больше')
                else
                        writeln('Гласных и согласных равное количество');
        readln
end.

[Stilet]

Да. Возможно. Но его наполнение тоже будет из констант.

[Backward]

А можно подробнее? Я что то не понимаю, как это

[Poma][a]

program text;

Ка бы чего не было от такого названия.

А так косяк идет из-за того что Вы не инициализируете переменные g и s

без констант ты никак не обойдешся ни в одной программе

Как это?

begin
    WriteLn (Random)
end.

Не ужели в данном коде есть константы?