Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 193628
30.09.2018, 20:16
0.00 руб.
0 1 1
Компьютеры Программирование
Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:

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

Пример ввода:
поздравляем с праздником
Пример вывода:
Всего букв - 22
Согласных букв - 15
Доля согласных в тексте - 0,68

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
02.10.2018, 13:24
общий
это ответ
Здравствуйте, svrvsvrv!

Смотрите приложение:
[code lang=pascal]var
a,b:string;
i,j:integer;
begin
write('Enter string:');
readln(a);
i:=0;
j:=0;
while length(a)>0 do
begin
case UpCase(a[1])of
'B','C','D','F','G',
'H','J','K','L','M',
'N','P','Q','R','S',
'T','V','W','X','Y',
'Z','Б','В','Г','Д',
'Ж','З','Й','К','Л',
'М','Н','П','Р','С',
'Т','Ф','Х','Ц','Ч',
'Ш','Щ','Ь','Ъ':begin inc(i);inc(j)end;
'A','E','I','O','U',
'А','О','И','Е','Ё',
'Э','Ы','У','Ю','Я':inc(j);
else begin end;
end;
delete(a,1,1);
end;
writeln('all chars:=',j);
writeln('chars:=',i);
writeln('percent:=',(i/j):4:2);
end.[/code]
Удачи!
5
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа