Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
N. White
0 / 0 / 0
Регистрация: 06.07.2012
Сообщений: 26
1

Найти все слова, содержащие наибольшее количество гласных латинских букв (a, e, i, o, u)

06.07.2012, 22:54. Просмотров 1354. Ответов 1
Метки нет (Все метки)

Через строки:
Дан текст. Группы символов, разделенные пробелом (1 или несколько) не содержащие пробелов внутри себя, будем называть словами. Найти все слова, содержащие наибольшее кол-во гласных латинских букв (a, e, i, o, u).
Заранее благодарен
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.07.2012, 22:54
Ответы с готовыми решениями:

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

Вывести в алфавитном порядке все слова, содержащие наибольшее количество гласных букв
• Вывести в алфавитном порядке все слова, содержащие наибольшее количество...

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

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

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

1
КонецСвета
Почетный модератор
7929 / 3900 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
07.07.2012, 00:14 2
Лучший ответ Сообщение было отмечено N. White как решение

Решение

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
uses crt;
var s,sl,smax: string;
    i,j,k,kmax: byte;
    g: set of char;
 
begin
g:=['e','y','i','o','a'];
write('s=');readln(s); s:=s+' ';
kmax:=0; sl:='';
for i:=1 to length(s) do
    if s[i]<>' ' then sl:=sl+s[i] else
       if length(sl)>0 then
          begin
          k:=0;
          for j:=1 to length(sl) do
              if sl[j] in g then inc(k);
          if k=kmax then smax:=smax+' '+sl;
          if k>kmax then
             begin
             smax:=sl; kmax:=k;
             end;
          sl:='';
          end;
writeln('Слова, содержащие наибольшее количество гласных ',(kmax),':');
writeln(smax);
readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.07.2012, 00:14

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

Найти все слова содержащие заданное количество букв
Данн массив из слов Т(к) найти все слова содержащие заданное количество букв

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


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

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

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