Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 11.03.2014
Сообщений: 6
1

Определить, какие русские гласные буквы входят в заданную строку (через множества)

11.03.2014, 21:27. Показов 852. Ответов 5
Метки нет (Все метки)

Заранее спасибо.))
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.03.2014, 21:27
Ответы с готовыми решениями:

Вывести на печать все русские гласные буквы, которые входят в четные слова
♥♥Зайки, помогите пожалуйста, буду очень благодарна ♥♥♥ Дан массив слов. Слова состоят из...

Вывести на печать все русские гласные буквы, которые входят в каждое слово
1) "на множества" Дан массив слов. Слова состоят из строчных латинских, русских...

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

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

5
142 / 148 / 116
Регистрация: 15.11.2012
Сообщений: 536
Записей в блоге: 2
11.03.2014, 23:30 2
объяви переменную типа множество - множество гласных
и объяви так же числовой массив или массив булевый с количеством элементов, равным количеству гласных в русском алфавите.
Потом в программе идёшь циклом по строке и спрашиваешь: если очередной символ строки принадлежит множеству гласных, то на соотв. позиции в числовом массиве поставить единичку, или увеличивать на единицу(так можно будет еще сказать, сколько каких гласных было).
А потом пройти цикл по массиву - если позиция массива больше нуля, значит гласная на соотв. позиции в множестве гласных была в строке.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
6187 / 3708 / 2563
Регистрация: 22.11.2013
Сообщений: 10,601
Записей в блоге: 1
12.03.2014, 10:02 3
orange_rush,
все намного проще:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const
  vowels=['а','о','э','и','у','ы','е','ё','ю','я'];
var
  i: integer;
  s: string;
  c: char;
  r: set of char;
begin
  Write('Введите строку: '); ReadLn(s);
  for i:=Length(s) downto 1 do Include(r,s[i]);
  r:=r*vowels;
  for c:='а' to 'я' do
    if c in r do Write(c:2);
  WriteLn;
end.
1
142 / 148 / 116
Регистрация: 15.11.2012
Сообщений: 536
Записей в блоге: 2
12.03.2014, 10:17 4
А, ну я не знал, что существует такой метод. Прекрасно!
Pascal
1
 Include(r,s[i]);
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
6187 / 3708 / 2563
Регистрация: 22.11.2013
Сообщений: 10,601
Записей в блоге: 1
12.03.2014, 10:26 5
orange_rush,
Это синоним (только более быстрый) для
Pascal
1
r:=r+[s[i]];
0
142 / 148 / 116
Регистрация: 15.11.2012
Сообщений: 536
Записей в блоге: 2
12.03.2014, 10:30 6
bormant, ну всё верно! я просто забыл про возможности множеств!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.03.2014, 10:30

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

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

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

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


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

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

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