Определить каких букв - согласные\гласных - больше в данном тексте

[alex377]

Помогите с еще одной задачей в паскале
Дан текст из строчных латинских букв, за которым следует точка. Определить, каких букв – гласных (a, e, i, o, u) или согласных – больше в этом тексте.


где то находил следующий код:

var i,gl,sogl:integer;
s:string;
begin
s:='assuy s s q a aa';
 
for i:=1 to length(s) do
if (s[i]='a') or (s[i]='e') or (s[i]='i') or (s[i]='o') or (s[i]='u') or (s[i]='y') then inc(gl)
 else if s[i]<>' 'then inc(sogl);
if gl>sogl then writeln('Гласных больше= ',gl)
           else
               if gl=sogl then writeln('Они равны = ', sogl)
                          else writeln('Согласных больше = ',sogl);
 
end.

но программа по сей видимости работает не исправно.

[newerow1989]

Здесь все правильно!

[ViktorR]

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

...
else if ((s[i]<>' ') OR (s[i]<>'.')) then inc(sogl);
...

Как-то так, ...
PS: Поскольку условие конкретное, то и так сойдёт
Но, по всей видимости, правильнее [выполнить разделение на гласные и согласные] через множество и оператор in или через строки и функцию Pos() ...

[ArrowSoft]

Program Bukvi;
var glas,soglas: set of char; st: string;
ii,len,glas1,soglas1 : byte;
begin
glas:= ['а','е','ё','и','о','у','э','ю','я'];
soglas := ['б'..'д','ж','з','к'..'н','п'..'т','ф'..'щ'];
write('Введи строку '); readln(st);
len := length (st); glas1:=0; soglas1:=0;
for ii:= 1 to len do
begin
if st[ii] in glas then inc(glas1);
if st[ii] in soglas then inc(soglas1);
end;
writeln('Гласных: ',glas1);
writeln('Согласных: ',soglas1);
end.