Множества

@Noreal · Регистрация: 12.04.2013

Студворк — интернет-сервис помощи студентам

Добрый день. Возникла проблема при работе с множествами.
Хотелось сделать бы как нибудь чтобы A и B вводилось с клавиатуры.

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
program operacii;
uses crt;
type
    al=set of 1..15;
Var
 A,B:al;
 r1,r2,r3,r4,r5:al;
 i:integer;
BEGIN
ClrScr;
 
  A:=[1,3,4,7,9];
 B:=[6,2,9,4,13];
 r1:=A+B;
 r2:=A*B;
 r3:=A-B;
 r4:=B-A;
 r5:=(A-B)+(B-A);
 
{r1}
 write('Объединение множеств');
  for i:=1 to 15 do
   if (i in r1) then
    write(i,' ');
 readln;
{r2}
 write('пересечение  множеств');
  for i:=1 to 15 do
   if (i in r2) then
    write(i,' ');
 readln;
{r3}
 write(''разность множеств A и B:'');
  for i:=1 to 15 do
   if (i in r3) then
    write(i,' ');
 readln;
{r4}
 write('разность множеств В и А');
  for i:=1 to 15 do
   if (i in r4) then
    write(i,' ');
 readln;
 {r5}
 write('сим разность');
  for i:=1 to 15 do
   if (i in r5) then
    write(i,' ');
 readln;
 
 
END.

@CodeR · 14.09.2013, 08:40

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
program operacii;
uses crt;
type
    al=set of 1..15;
Var
 A,B:al;
 r1,r2,r3,r4,r5:al;
 i:integer;
 t:1..15;
BEGIN
ClrScr;
A:=[];
B:=[];
writeln('Множество A');
For i:=1 to 5 do
Begin
  write(i,' - элемент = ');
  readln(t);
  A:=A+[t];
End;
writeln('Множество B');
For i:=1 to 5 do
Begin
  write(i,' - элемент = ');
  readln(t);
  B:=B+[t];
End;
 r1:=A+B;
 r2:=A*B;
 r3:=A-B;
 r4:=B-A;
 r5:=(A-B)+(B-A);
 
{r1}
 write('Объединение множеств');
  for i:=1 to 15 do
   if (i in r1) then
    write(i,' ');
 readln;
{r2}
 write('пересечение  множеств');
  for i:=1 to 15 do
   if (i in r2) then
    write(i,' ');
 readln;
{r3}
 write('разность множеств A и B:');
  for i:=1 to 15 do
   if (i in r3) then
    write(i,' ');
 readln;
{r4}
 write('разность множеств В и А');
  for i:=1 to 15 do
   if (i in r4) then
    write(i,' ');
 readln;
 {r5}
 write('сим разность');
  for i:=1 to 15 do
   if (i in r5) then
    write(i,' ');
 readln;
 
 
END.

@Puporev · 14.09.2013, 09:22

Сообщение от Noreal

чтобы A и B вводилось с клавиатуры.

Нужно задать мощность множества не более 15

Pascal
1
2
3
4
repeat
write('n от 1 до 15 n=');
readln(n);
until n in [1..15];

ввести n разных чисел от 1 до 15

Pascal
1
2
3
4
5
6
7
8
a:=[];
for i:=1 to n do
 begin
  repeat
   x:=random(15)+1;
  until not(x in a);
  a:=a+[x];
 end;

Добавлено через 35 минут
И лучше однообразные действия описать процедурами.

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
program operacii;
uses crt;
type
    al=set of 1..15;
var n:byte;
procedure vvod(var a:al;c:char);
var i,x:byte;
begin
writeln('Введите элементы множества ',c);
a:=[];
for i:=1 to n do
 begin
  repeat
   write('el',i,'=');
   read(x);
  until not(x in a);
  a:=a+[x];
 end;
end;
procedure vyvod(a:al);
var i:byte;
begin
if a=[] then writeln('Множество пустое')
else
 begin
  for i:=1 to 15 do
  if i in a then write(i,' ');
  writeln
 end;
end;
 
Var A,B:al;
    r1,r2,r3,r4,r5:al;
BEGIN
ClrScr;
repeat
write('Мощность исходных множеcтв от 1 до 15 n=');
read(n);
until n in [1..15];
vvod(a,'A');
vvod(b,'B');
clrscr;
writeln('Множество A');
vyvod(a);
writeln('Множество B');
vyvod(b);
r1:=A+B;
r2:=A*B;
r3:=A-B;
r4:=B-A;
r5:=(A-B)+(B-A);
writeln('Объединение множеств');
vyvod(r1);
writeln('Пересечение  множеств');
vyvod(r2);
writeln('Разность множеств A и B:');
vyvod(r3);
writeln('Разность множеств В и А');
vyvod(r4);
writeln('Объединение разностей');
vyvod(r5);
END.

@Noreal · 04.10.2013, 14:54 **[ТС]**

Puporev, CodeR, спасибо за помощь

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .

@Noreal 0 / 0 / 0 Регистрация: 12.04.2013 Сообщений: 43
	04.10.2013, 14:54 [ТС]
	Puporev, CodeR, спасибо за помощь 0