Лабораторная работа: Программа на языке Паскаль, реализующая операции над множествами

Работа программы начинается с вывода сообщения о необходимости ввести количество элементов первого и второго множеств. Далее программа требует ввести элементы множеств, заканчивая ввод каждого элемента нажатием клавиши Enter. После ввода элементов множеств необходимо выбрать операцию, которая должна быть выполнена над ними. Результат выполнения операции выводится на экран.

Таблица 1.

Список идентификаторов переменных:

Идентификатор	Тип	Применение
Zoopark1	Zoopark1: array [1..33] of string	Хранит элементы первого зоопарка
Zoopark2	Zoopark2: array [1..33] of string;	Хранит элементы второгозоопарка
Rezultat	rezultat: array [1..75] of string;	Хранит результат выполнения операции
Zpark1	zpark1: array [1 ..33] ofstring;	Для временного хранения первого зоопарка
zpark2	zpark2: array [1..33] ofstring;	Для временного хранения второго зоопарка
x, y, i, j, d, t, k	integer	Для организации циклов
V	integer	Размер первого множества
w	integer	Размер второго множества
wiborka	char	Хранит номер выбранной операции

Таблица 2.

Список процедур:

Имя процедуры	Формальные параметры	Вызов процедуры	Применение
obedinenie	нет	obedinenie	Операция объединения множеств
peresechenie	нет	peresechenie	Операция пересечения множеств
Имя процедуры	Формальные параметры	Вызов процедуры	Применение
raznost	нет	raznost	Операция разности множеств
simmetrichnaya_raznost	нет	simmetrichnaya_raznost	Операция симметричной разности множеств
dekartovoe_proizvedenie	нет	dekartovoe_proizvedenie	Операция декартового произведения множеств

Вывод:

В результате всей проделанной работы мы закрепили теоретические знания и получили практические навыки выполнения операций над множествами, также нами была разработана программа на языке Паскаль, реализующая операции над множествами: объединение, пересечение, разность, симметричная разность, декартовое произведение.

Приложение

Листинг программы:

programgiwotnie_zooparka;

uses CRT;

label menu;

var

zoopark1: array [1..33] of string;

zoopark2: array [1..33] of string;

zpark1: array [1 ..33] of string;

zpark2: array [1..33] of string;

j, i:integer;

x, y:integer;

d, k, t:integer;

v, w:integer;

str: string;

rezultat: array [1..75] of string;

wiborka: char;

procedure peresechenie;

begin

for x:=1 to v do

for y:=1 to w do

begin