1 / 1 / 0
Регистрация: 23.02.2014
Сообщений: 37
1

Найти множества гласных и заглавных букв, а также пересечение этих множеств

21.06.2015, 15:25. Показов 1898. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Еще раз здравствуйте, мне только что тут очень оперативно помогли с решением задачи, за что ребятам отдельное спасибо. И поэтому я решила попытать счастья еще разочек Всем неравнодушным плюс в карму и моя безмерная признательность
Задача состоит вот в чем:
Дано предложение на английском языке, найти множество гласных букв и множество заглавных, а так же пересечение этих множеств.
Извините за навязчивость, сессия подкралась незаметно
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.06.2015, 15:25
Ответы с готовыми решениями:

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

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

Заданы 2 множество найти пересечение, объединение и разность этих множеств
Заданы 2 множество найти пересечение, объединение и разность этих множеств.

Найти количество гласных и согласных букв в строке, а также символов (, . : ? !
Задана строка S, содержащая русскоязычный текст, записанный малыми буквами. Найти количество...

2
Программист
307 / 182 / 176
Регистрация: 05.12.2013
Сообщений: 683
Записей в блоге: 5
21.06.2015, 16:07 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
const
  Glas=['e','y','u','i','o','a','E','Y','U','I','O','A'];
  Zagl=['A'..'Z'];
type
  SetOfChar = set of char;
procedure print(s: SetOfChar);
var
  c: char;
begin
  for c:=#0 to #255 do
    if c in s then write(c);
  writeln;
end;
var
  s: string;
  i: integer;
  g,z: SetOfChar;
begin
  readln(s);
  g:=[]; z:=[];
  for i:=1 to length(s) do begin
    if s[i] in Glas then g:=g+[s[i]];
    if s[i] in Zagl then z:=z+[s[i]];
  end;
  write('Гласные:     ');
  print(g);
  write('Заглавные:   ');
  print(z);
  write('Пересечение: ');
  print(g*z);
  readln;
end.
0
Модератор
9880 / 5247 / 3308
Регистрация: 17.08.2012
Сообщений: 16,029
22.06.2015, 13:39 3
Цитата Сообщение от Kitten19 Посмотреть сообщение
предложение на английском языке, найти множество гласных букв
Цитата Сообщение от Arigato Посмотреть сообщение
'y'
Цитата Сообщение от Arigato Посмотреть сообщение
'Y'
Y - согласная буква английского алфавита.
0
22.06.2015, 13:39
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.06.2015, 13:39
Помогаю со студенческими работами здесь

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

Найти пересечение двух множеств и вывести данное пересечение и кол-во элементов в нем
Здравствуйте, помогите, пожалуйста, дорешать задачу. Условие: найти пересечение двух множеств и...

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

Из множества заглавных латинских букв выделить заданное множество
Из множества заглавных латинских букв выделить множество, состоящее из символов, не входящих в...


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

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

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