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

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

25.11.2010, 20:41. Просмотров 674. Ответов 4
Метки нет (Все метки)

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

Найти слово, содержащее наибольшее количество различных букв
Дана строка. Найти слово содержащее наибольшее количество РАЗЛИЧНЫХ букв....

Найти слово, содержащее наибольшее количество указанных букв
Помогите, пожалуйста, с задачей-Дана строка символов, содержащая текст,...

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

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

Элементами слов могут быть как буквы, так и цифры. Вывести на экран слово, содержащее наибольшее количество чётных цифр
Элементами слов могут быть как буквы, так и цифры. Вывести на экран слово,...

4
LiJaN
0 / 0 / 0
Регистрация: 25.11.2010
Сообщений: 15
25.11.2010, 20:52 2
господи, где такие бредовые задачи берутся? )ща напишу...
0
Olfim
0 / 0 / 0
Регистрация: 25.11.2010
Сообщений: 15
25.11.2010, 22:44  [ТС] 3
Кому поможет - задача на тему Множества...
0
Соколиный глаз
Нарушитель
180 / 162 / 112
Регистрация: 25.07.2014
Сообщений: 2,971
Записей в блоге: 10
Завершенные тесты: 2
13.09.2017, 17:22 4
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
  N = 10;
 
var
  Words: array [0..N - 1] of string;
  Count: array [0..N - 1] of integer;
  Max: integer;
  
  Consonants: set of char;
 
begin
  var C := 'QWRTPSDFGHJKLZXCVBNM';
  for var i := 1 to Length(C) do
    Include(Consonants, C[i]);
  
  for var i := 0 to N - 1 do
    Readln(Words[i]);
  
  for var i := 0 to N - 1 do
    for var j := 1 to Words[i].Length do
      if UpCase(Words[i].Chars[j]) in Consonants then
        Inc(Count[i]);
  
  var j := 0;
  Max := Count[0];
  for var i := 1 to N - 1 do
    if Count[i] > Max then
    begin
      Max := Count[i];
      j := i;
    end;
  
  WritelnFormat('Слово {0} содержит максимальное количество согласных: {1}.', Words[j], Count[j]);
end.
Добавлено через 1 минуту
В верхний регистр перевожу, чтобы изначальный регистр буквы не повлиял не результат выполнения программы.

Не по теме:

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

0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3893 / 2554 / 2081
Регистрация: 22.11.2013
Сообщений: 7,122
13.09.2017, 18:30 5
Pascal
12
13
14
  var C := 'QWRTPSDFGHJKLZXCVBNM';
  for var i := 1 to Length(C) do
    Include(Consonants, C[i]);
Если не спорить по составу (Y - согласный), то можно сильно проще:
Pascal
1
const Consonants = ['A'..'Z']-['A','E','I','O','U'];
Добавлено через 2 минуты
Обычно задача включает в себя и разбиение введенной фразы на слова.

Добавлено через 26 минут
И немного иной подход к решению:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const
  Blank = [#0..' ']; Vows = ['A','E','I','O','U']; Cons = ['A'..'Z']-Vows;
var
  m, t: Integer;
  w, tw: String;
  c: Char;
begin
  Write(': ');
  repeat
    Read(c);
    if c in Blank then begin
      if m<t then begin
        s:=ts; m:=t;
      end; ts:='';
    end else begin
      if UpCase(c) in Cons then Inc(t);
      ts:=ts+c;
    end;
  until c = ^J;
  WriteLn('> ',s);
end.
1
13.09.2017, 18:30
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.09.2017, 18:30

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

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

Удалить из массива слово, содержащее наибольшее количество четных цифр
Помогите плиз написать программу: Дан массив из n слов произвольной длины...


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

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

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