Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/25: Рейтинг темы: голосов - 25, средняя оценка - 5.00
Amely312
2 / 2 / 0
Регистрация: 07.10.2012
Сообщений: 89
1

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

06.12.2012, 20:13. Просмотров 4666. Ответов 1

Считать с клавиатуры два множества. Первое состоит из шести чисел, лежащих на промежутке от 0 до 10, второе – из 3 чисел, лежащих на промежутке от 0 до 20. Найти их пересечение и вывести полученное множество на экран.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.12.2012, 20:13
Ответы с готовыми решениями:

Дано множество, найти объединение, пересечение множеств
Напишите программу на Паскале. Дано множество А – множество гласных букв...

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

Пусть заданы множество А и множество В целых чисел, вывести напечатать все элементы этих множеств
Пусть заданы множество А и множество В целых чисел, вывести напечатать все...

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

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

1
Kodzaev
3005 / 1894 / 1646
Регистрация: 30.04.2011
Сообщений: 3,054
06.12.2012, 21:48 2
Лучший ответ Сообщение было отмечено Amely312 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Var
  m3,m1,m2: Set of Byte;
  i: Integer;
  x: Byte;
BEGIN
Writeln('Заполните первое множество 6 числами в промежутке от 0 до 10');
For i:=1 to 6 do
begin
  Readln(x);
  Include(m1,x);
end;
Writeln('Заполните второе множество 3 числами в промежутке от 0 до 20');
For i:=1 to 3 do
begin
  Readln(x);
  Include(m2,x);
end;
m3:=m1*m2;
Writeln('Пересечение множеств:');
For i:=0 to 255 do
If i in m3 Then Write(i,' ');
Readln
END.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.12.2012, 21:48

Задано некоторое множество М и множество Т того же типа. Подсчитать, сколько элементов из множеств Т и М совпадает.
Задано некоторое множество М и множество Т того же типа. Подсчитать, сколько...

Задано некоторое множество М и множество Т того же типа. Подсчитать, сколько элементов из множеств Т и М совпадает
Реализация нужно с помощью множеств. Лучше написать весь текст программы, а...

Из множества целых чисел 1.10 выделить множество чисел, на которые делится без остатка число 7. Вывести это множество на экран
Из множества целых чисел 1..10 выделить множество чисел, на которые делится без...


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

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

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