Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
мирам
0 / 0 / 0
Регистрация: 05.04.2016
Сообщений: 70
#1

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

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

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

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

Определить слово в котором больше букв - Pascal
Сама совсем не шарю в программировании, а срочно надо закрыть летнюю сессию. Выручите кто может. 1. Даны r1, r2, r3. Определить какая...

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

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

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

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

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3829 / 2816 / 1936
Регистрация: 05.06.2014
Сообщений: 13,788
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
Привет! Вот еще темы с ответами:

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

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

Определить, каких букв — гласных или согласных — больше в тексте - Pascal
Множества. Дан текст из цифр и строчных латинских букв, за которыми следует точка. Определить, каких букв — гласных (а, е, i, о, и) или...

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


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

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

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