6 / 5 / 4
Регистрация: 06.03.2012
Сообщений: 61
1

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

18.03.2012, 22:40. Показов 2240. Ответов 1
Метки нет (Все метки)

Вывести слова в которых гласных букв больше чем согласных
По окончанию введения строки надо ограничение точку.Как это сделать?
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.03.2012, 22:40
Ответы с готовыми решениями:

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

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

В каких словах предложения гласных букв больше чем согласных?
Товарищи! Это снова я, и я снова нуждаюсь в вашей помощи. Желательно бы как можно быстрее. Дана...

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

1
Почетный модератор
7965 / 3936 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
19.03.2012, 00:11 2
Лучший ответ Сообщение было отмечено Santi111 как решение

Решение

Santi111, возможно, так
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 ar: set of char=['А'..'Я','а'..'я'];                       //задаю множество букв русского алфавита
      gr: set of char=['А','Ё','У','Е','Ы','О','Э','Я','И','Ю',  //задаю множество гласных букв русского алфавита
                       'а','ё','у','е','ы','о','э','?','и','ю'];
      al: set of char=['A'..'Z','a'..'z'];                       //задаю множество букв латинского алфавита
      gl: set of char=['A','E','Y','U','I','O',                  //задаю множество гласных букв латинского алфавита
                       'a','e','y','u','i','o'];
      p: set of char=[' ','.',',',':',';','!','?','-'];          //задаю множество разделителей слов
var   sr,sl: set of char;                                          //переменные для множеств согласных
      i,j,kg,ks: byte;                                             //счетчики и переменные для количества гласных и согласных в слове
      slovo: string;                                               //переменная для слова
      c: char;
begin
writeln('Введите предложение. Признак окончания ввода - точка');
sr:=ar-gr;  sl:=al-gl;
slovo:='';
repeat
read(c);
if not (c in p) then
   begin
   slovo:=slovo+c;
   if (c in sr) or (c in sl) then inc(ks);  //если символ входит в множество согласных, увеличиваю счетчик согласных букв
   if (c in gr) or (c in gl) then inc(kg);  //если символ входит в множество гласных, увеличиваю счетчик гласных букв
   end else
   begin
   if kg>ks then write(slovo,' ');
   slovo:='';
   kg:=0;
   ks:=0;
   end;
until c='.';
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.03.2012, 00:11
Помогаю со студенческими работами здесь

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

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

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

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


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

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

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