Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
Yastreb111
0 / 0 / 0
Регистрация: 28.02.2013
Сообщений: 34
#1

Строка: Проверить, каких букв в тексте больше: гласных или согласных.

06.03.2013, 07:45. Просмотров 1087. Ответов 1
Метки нет (Все метки)

Строка содержит произвольный русский текст. Проверить, каких букв в нем больше: гласных или согласных.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.03.2013, 07:45
Ответы с готовыми решениями:

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

Определить, каких букв больше в тексте: гласных или согласных
Дан текст из цифр и строчных латинских букв. Определить, каких букв – гласных...

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

Определить, каких букв больше – гласных или согласных
Дан текст из строчных латинских букв, за которым следует точка. Определить,...

Множества. Определить, каких букв больше – гласных или согласных
Дан текст на русском языке. Определить, каких букв больше –гласных или...

1
ermolay
3430 / 2369 / 2131
Регистрация: 04.12.2011
Сообщений: 3,965
06.03.2013, 09:31 #2
Лучший ответ Сообщение было отмечено Yastreb111 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
  str: string;
  i: byte;
  s1,s2: byte;
  lit: set of char;
begin
  lit:=['А','Е','Ё','И','О','У','Ы','Э','Ю','Я'];
  write('Введите текст:');
  readln(str);
  for i:=1 to length(str) do
    if upCase(str[i]) in lit then
      inc(s1) else
        if (upCase(str[i]) in ['А'..'Я'])
          and (not (upCase(str[i]) in lit))
          then inc(s2);
  writeln('Гласных русский букв: ',s1,'. Согласных русских букв: ',s2);
  if s1>s2 then writeln('Гласных больше') else
    if s2>s1 then writeln('Согласных больше') else
      writeln('Гласных и согласных попровну');
end.
Добавлено через 3 минуты
в первом варианте не учел мягкий и твердый знаки, исправил:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
  str: string;
  i: byte;
  s1,s2: byte;
  lit: set of char;
begin
  lit:=['А','Е','Ё','И','О','У','Ы','Э','Ю','Я'];
  write('Введите текст:');
  readln(str);
  for i:=1 to length(str) do
    if upCase(str[i]) in lit then
      inc(s1) else
        if (upCase(str[i]) in ['А'..'Я'])
          and (not (upCase(str[i]) in lit))
            and (not (upCase(str[i]) in ['Ь','Ъ']))
          then inc(s2);
  writeln('Гласных русский букв: ',s1,'. Согласных русских букв: ',s2);
  if s1>s2 then writeln('Гласных больше') else
    if s2>s1 then writeln('Согласных больше') else
      writeln('Гласных и согласных попровну');
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.03.2013, 09:31

Организовать ввод цифр и строчных латинских букв до ввода... определить каких букв больше - гласных или согласных
Организовать ввод цифр и строчных латинских букв до ввода... определить каких...

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

Дан текст на русском языке. Определить, каких букв больше –гласных или согласных
Тема: Множества Дан текст на русском языке. Определить, каких букв больше...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru