написать программу на Паскале

[katerunechka]

Помогите написать программу на Паскале

Посчитайте процентное соотношение гласные/согласные во введенной строке, содержащей строчные буквы русского алфавита

Если возможно, с использованием типов - множеств.

Заранее спасибо)

[skgwazap]

var s:string;
     i:byte;
     total_count, glasn_count, soglasn_count:integer;
BEGIN
    total_count:=1;
    glasn_count:=0;
    soglasn_count:=0;
    writeln('Введите строку:');
    readln(s);
    for i:=1 to length(s) do
    begin
        if s[i] in ['а','е',...(тут все гласные)] then 
            inc(glasn_count)
        else
            if s[i] in ['б','в',...(тут все согласные)] then 
                inc(soglasn_count);
        inc(total_count);
    end;
    writeln('Всего ', total_count, 'символов. Гласных ', glasn_count/total_count:3:2, '% Согласных ', soglasn_count/total_count:3:2, '%');
END.

как то так, не компилировал, но суть изложил вроде верно.

[katerunechka]

Спасибо огромное,вы меня спасли))

[Son Of Pain]

А с использованием типов-множеств

var s:string;
i,total_count, glasn_count, soglasn_count:byte;
const glasn:set of char=['а','о','у','е','и','э','ё','ю', 'я', 'ы'];
soglasn:set of char=['б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ','ь','ъ'];
BEGIN
total_count:=0;
glasn_count:=0;
soglasn_count:=0;
writeln('Введите строку:');
readln(s);
for i:=1 to length(s) do
begin
if s[i] in glasn then
inc(glasn_count)
else
if s[i] in soglasn then
inc(soglasn_count);
inc(total_count);
end;
if total_count>0 then
writeln('Всего ', total_count, 'символов. Гласных ', (glasn_count/total_count*100):3:2, '% Согласных ', (soglasn_count/total_count*100):3:2, '%');
END.