Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
мирам
0 / 0 / 0
Регистрация: 05.04.2016
Сообщений: 70
1

Найти и вывести слово нечетной длины, в котором согласных букв больше

10.07.2016, 11:13. Просмотров 848. Ответов 1
Метки нет (Все метки)

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

Найти и вывести слово, содержащее наибольшее количество согласных букв
Элементами слов могут быть любые символы. Найти и вывести слово, содержащее...

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

Вывести слова, в которых гласных букв больше согласных
1)Дан массив из n слов произвольной длины (длина слова не превышает 80...

Для каждого слова заданного предложения укажите долю согласных. Определите слово, в котором доля согласных максимальна
Разработайте программу решения задачи с использованием процедур и функций над...

Удалить из строки символов каждое слово нечетной длины
помогите решить. 16. Напишите программу, которая удаляет из строки символов...

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3882 / 2864 / 3639
Регистрация: 05.06.2014
Сообщений: 14,083
10.07.2016, 11:31 2
Лучший ответ Сообщение было отмечено мирам как решение

Решение

Взято отсюда:
Множества. Вывести слова в которых гласных букв больше чем согласных

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
const
  ar: set of char = ['А'..'Я', 'а'..'я'];                       //задаю множество букв русского алфавита
  //задаю множество гласных букв русского алфавита
  gr: set of char = ['А', 'Ё', 'У', 'Е', 'Ы', 'О', 'Э', 'Я', 'И', 'Ю', 'а', 'ё', 'у', 'е', 'ы', 'о', 'э', '?', 'и', 'ю'];
  p: set of char = [' ', '.', ',', ':', ';', '!', '?', '-'];//задаю множество разделителей слов
 
var
  sr: set of char;                                          //переменные для множеств согласных
  i, j, kg, ks: byte;                                             //счетчики и переменные для количества гласных и согласных в слове
  s, slovo: string;//переменная для строки и для слова
 
begin
  write('s=');                                                     //запрашиваю и считываю строку
  readln(s);
  s := s + ' ';
  slovo := '';                                             //добавляю  пробел в конце предложения
  sr := ar - gr;
  for i := 1 to length(s) do
    if not (s[i] in p) then slovo := slovo + s[i] else                //если символ - не знк препинания или пробел, добавляю его к "нововобразовываемому" слову. иначе перехожу к обработке
    if length(slovo) > 0 then                                    //если длина набранного слова больше 0
    begin
      kg := 0;ks := 0;                                           //изначально количество гласных и количество согласных рано 0
      for j := 1 to length(slovo) do                            //в цикле с параметром перебираю символы слова
      begin
        if slovo[j] in sr then 
          inc(ks);  //если символ входит в множество согласных, увеличиваю счетчик согласных букв
        if slovo[j] in gr then 
          inc(kg);  //если символ входит в множество гласных, увеличиваю счетчик гласных букв
      end;
      if (kg > ks) and (length(slovo) div 2 <> 0)  then 
        write(slovo, ' ');                         //если счетчик гласных больше согласных, вывожу слово
      slovo := '';                                              //очищаю переменную для следующего слова
    end;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.07.2016, 11:31

Согласных или гласных букв больше в тексте?
Дан текст из цифр из строчных латинских букв, за которыми следует точка....

Удалить из каждой нечетной строки слово, содержащее наибольшее количество гласных букв
Удалить из каждой нечетной строки слово, содержащее наибольшее количество...

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


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

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

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