Операции над множествами.

Постановка задачи:

Задан список объектов, включающий в зависимости от варианта названия ЭВМ или видов спорта. Известно, что в каждом институте имеется определенный набор вычислительных машин, а учащиеся каждой группы занимаются определенными видами спорта. Необходимо задать конкретные наборы ЭВМ (перечни видов спорта) для каждого института (каждой группы). Количество институтов(групп) указано в варианте.

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

Варианты задания:

требуется построить и распечатать три множества : первое множество должно включать в себя ЭВМ, , имеющиеся во всех институтах; второе - ЭВМ, имеющиеся хотя бы в одном институте; третье - ЭВМ, которых нет ни в одном ин ституте(N=4).

Текст программы:

Program Sets;

Uses Crt;

Type

Comps = (i386, i486, Apple, Pentium, Acer, Macintosh);

TComps = set of Comps;

Const

All_comps : TComps = [i386, i486, Apple, Pentium, Acer, Macintosh];

Inst_1 : TComps = [i386,Acer, Pentium];

Inst_2 : TComps = [macintosh, Pentium];

Inst_3 : TComps = [Apple, Pentium ];

Inst_4 : TComps = [Pentium, Acer, i486];

Var

InAll, NoOne, InOne, All_Comps_In, NotInst_1,

NotInst_2, NotInst_3, NotInst_4 : TComps;

Flag : String;

Procedure OutPut(s : TComps);

Begin

If i386 in s then Write('i386 ');

If i486 in s then Write('i486 ');

If Pentium in s then Write('Pentium ');

If Apple in s then Write('Apple ');

If Acer in s then Write('Acer ');

If Macintosh in s then Write('Macintosh ');

End;

Begin

ClrScr;

All_Comps_In := Inst_1 + Inst_2 + Inst_3 + Inst_4;

NoOne := All_Comps - All_Comps_In;

Write('Comps not met in all VUZ: ');

OutPut(NoOne); WriteLn;

Write('Comps met in only one VUZ: '); OutPut(All_Comps_In-Inst_1-Inst_2-Inst_3);

OutPut(All_Comps_In-Inst_2-Inst_3-Inst_4);

OutPut(All_Comps_In-Inst_3-Inst_4-Inst_1);

OutPut(All_Comps_In-Inst_2-Inst_4-Inst_1);

WriteLn;

Write('Comps met in every VUZ: ');

NotInst_1 := All_Comps_In-Inst_1;

NotInst_2 := All_Comps_In-Inst_2;

NotInst_3 := All_Comps_In-Inst_3;

NotInst_4 := All_Comps_In-Inst_4;

OutPut(All_Comps_In-(NotInst_1 + NotInst_2 + NotInst_3 + NotInst_4));

While not KeyPressed Do;

End.

Результаты программы:

Варианты заданий.

Задано множество вычислительных машин, которыми может быть обеспечен институт: IBM-386, IBM-486, Pentium, Macintosh, APPLE, ACER. Известен набор машин, имеющихся в каждом институте. Количество институтов (N) указано в варианте:

1) требуется построить и распечатать множество, включающее в себя вычислительные машины:

· которыми обеспечены все институты (N=10).

· которые имеют хотя бы один институт.

· которых нет ни водном институте.

2) требуется построить и распечатать два множества:

· первое множество должно включать в себя ЭВМ, имеющиеся во всех институтах

второе - ЭВМ, имеющиеся хотя бы в одном институте(N=5).

· первое множество должно включать в себя ЭВМ, имеющиеся в одном институте; второе - ЭВМ, которых нет ни в одном институте(N=5).

· первое множество должно включать в себя ЭВМ, которых нет ни в одном институте; второе - ЭВМ, имеющиеся во всех институтах(N=5).

3) требуется построить и распечатать три множества :

· первое множество должно включать в себя ЭВМ, , имеющиеся во всех институтах;

· второе - ЭВМ, имеющиеся хотя бы в одном институте;

· третье - ЭВМ, которых нет ни в одном институте(N=4).