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

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

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

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

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

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

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

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

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

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

1
Kodzaev
3002 / 1891 / 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 выделить множество чисел, на которые делится без...

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

Как вывести на экран результат сложения множеств?
var chs1, chs2, chs3: set of char; begin chs1 := ; chs2 := ; chs3 :=...


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

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

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