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

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

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

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

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

требуется построить и распечатать три множества: первое множество должно включать в себя ЭВМ,, имеющиеся во всех институтах; второе - ЭВМ, имеющиеся хотя бы в одном институте; третье - ЭВМ, которых нет ни в одном ин ституте(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.

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

Comps not met in all VUZ: Comps met in only one VUZ: i486 i386 Macintosh Apple Comps met in every VUZ: Pentium

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Министерство общего и профессионального образования РФ

Пермский государственный технический университет

Кафедра автоматизированных систем управления

Полякова О.А.

Методические указания для выполнения лабораторных работ по информатике для студентов специальности АСУ.

Часть 2.

Пермь 2001

Оглавление

9. Файловые типы данных................................................................................................................. 95

9.1. Инициализация файла.......................................................................................................... 95

9.2. Фалы и работа с ними............................................................................................................. 97

Лабораторная работа №11. Работа с внешними файлами................................................ 100

9.3. Сортировка файлов........................................................................................................... 105

9.3.1. Слияние упорядоченных последовательностей...................................................... 105

9.3.2. Сортировка сбалансированным слиянием.............................................................. 108

9.3.3. Сортировка простым слиянием............................................................................... 113

9.3.4. Сортировка естественным слиянием....................................................................... 120

9.3.5. Сортировка многофазным слиянием....................................................................... 131

Лабораторная работа №12. Сортировка файлов.................................................. 137

10. Динамическая память................................................................................................................ 142

10.1. Указатели.............................................................................................................................. 142

10.2. Списки................................................................................................................................... 144

Лабораторная работа № 13. Исключение элементов списка.............................................. 146

Лабораторная работа № 14. Работа со списками.............................................................. 154

Лабораторная работа № 15. Выполнение операций над списковыми структурами............ 170

10.3. Деревья................................................................................................................................ 174

10.4. Стеки, очереди...................................................................................................................... 181

Лабораторная работа № 16. Работа со стеками и очередями........................................... 191

11. Организация меню с использованием средств среды Turbo Pascal.......................................... 196

Лабораторная работа № 17. Составление меню................................................................. 197

Анкетные данные на абитуриентов..................................................................................................... 209