Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 11.03.2012
Сообщений: 5
1

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

11.03.2012, 19:15. Показов 1389. Ответов 3
Метки нет (Все метки)

Помогите пожалуйста решить задачу:

Дан текст. Найти в нем все слова с наименьшим количеством гласных букв русского алфавита.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.03.2012, 19:15
Ответы с готовыми решениями:

Найти в тексте все слова с наибольшим количеством гласных букв русского алфавита
Дан текст. Найти в нем все слова с наибольшим количеством гласных букв русского алфавита. Кто...

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

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

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

3
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
11.03.2012, 19:43 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
uses crt;
const sg='уеёыаоэяиюУЕЁЫАОЭЯИЮ';
var s,sl,sn: string;
    i,j,k,kmin: byte;
    
begin
write('s=');
readln(s);
s:=s+' '; sl:=''; sn:='';
kmin:=length(s);
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 pos(sl[j],sg)<>0 then inc(k);
          if k<kmin then kmin:=k;
          sl:='';
          end;
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 pos(sl[j],sg)<>0 then inc(k);
          if k=kmin then sn:=sn+sl+' ';
          sl:='';
          end;
writeln(sn);
end.
2
0 / 0 / 0
Регистрация: 11.03.2012
Сообщений: 5
11.03.2012, 23:55  [ТС] 3
Цитата Сообщение от КонецСвета Посмотреть сообщение
Pascal
1
          sl:=''
Что это??
0
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
11.03.2012, 23:58 4
это переменная, в которую будут записываться слова. поскольку каждое слово нужно нам отдельно (а не все, слепленные в кашу), каждый раз перед выделением нового слова возникает необходимость в очистке переменной для собирания слова =)
это присваивание переменной пустой строки
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.03.2012, 23:58

Найти в тексте все слова, начинающиеся на заданную букву русского алфавита, и их количество
Найти в тексте все слова, начинающиеся на заданную букву русского алфавита. Определить их...

Определить слова, в которых содержится больше двух гласных букв русского алфавита
Добрый день!Нужно определить cлова, в которых содержится больше двух гласных букв русского...

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

Найти в данном тексте все слова, содержащие от 2-х до 4-х гласных букв
2.Вся обработка текста должна быть основана на регулярных выражениях. Найти в данном тексте...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru