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

Объединение, пересечение, разность, симметричная разность и декартовое произведение множеств. Реализация на одном из языков программирования программы, способной выполнять операции над множествами. Список основных идентификаторов переменных и процедур.

Рубрика Программирование, компьютеры и кибернетика
Вид лабораторная работа
Язык русский
Дата добавления 26.07.2010
Размер файла 469,5 K

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Лабораторная работа № 1.

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

Цель работы:

Закрепление теоретических знаний и получение практических навыков выполнения операций над множествами.

Программа работы:

1. Изучить теорию.

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

3. Выполнить вычислительные эксперименты.

Используемые программно-технические средства:

1. Персональный компьютер типа IBM PC.

2. Turbo Pascal 7.0.

Краткая теория:

Множество совокупность объектов одной природы.

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

Предположим, существуют два множества А и В, принадлежащие какому-то универсальному множеству U. Тогда:

1. Объединение множеств.

Объединением или суммой множеств А и В называется множество С, состоящее из элементов, входящих в оба множества.

2. Пересечение множеств.

Пересечением множеств А и В называется множество С, состоящее из элементов, принадлежащих обоим множествам.

3. Разность множеств.

Разностью множеств А и В называется множество С, содержащее те и только те элементы множества А, которые не принадлежат множеству В.

4. Симметричная разность множеств.

Симметричной разностью множеств А и В называется множество С, содержащее элементы множества А, не входящие во множество В, и элементы множества В, не входящие во множество А.

5. Декартовое произведение множеств.

Декартовым произведением множеств А и В называется множество С, содержащее упорядоченные пары элементов множеств, причем первый элемент пары принадлежит множеству А, второй множеству В.

Математическая постановка задачи:

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

Описание метода решения задачи:

Описание программы:

Данная программа, написанная на языке Паскаль, начинается с раздела переменных, полный список которых представлен в Таблице 1. В основе алгоритма программы лежат пять процедур, каждая из которых отвечает за закрепленную за ней операцию над множеством. (см. Таблицу 2) Выбор требуемой операции происходит путем использования оператора case.

Работа программы начинается с вывода сообщения о необходимости ввести количество элементов первого и второго множеств. Далее программа требует ввести элементы множеств, заканчивая ввод каждого элемента нажатием клавиши 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] of string;

Для временного хранения первого зоопарка

zpark2

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

Для временного хранения второго зоопарка

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

Операция декартового произведения множеств

Вывод:

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

Приложение

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

program giwotnie_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

if zoopark1[x]=zoopark2[y] then

rezultat[x] :=zoopark2 [y] ;

end;

clrscr;

writeln ('Rezultat rawen->> ');

for i:=1 to v+w do

begin

if rezultat[i] <> ' ' then

writeln (rezultat[i]);

end;

end;

procedure obedinenie;

begin

for x:=1 to v do

for y:=1 to w do

begin

if zoopark1[x]=zoopark2[y] then

zoopark1[x]:=' ';

end;

for j:=1 to v do

begin

rezultat[j]:=zoopark1[j];

end;

t:=0;

for d:=j+1 to v+w do

begin

t:=t+1;

rezultat[d] :=zoopark2[t];

end;

clrscr;

writeln ('Rezultat rawen->>');

for i:=1 to v+w do

begin

if rezultat[i] <> ' ' then

writeln (rezultat[i]);

end;

end;

procedure simmetrichnaya_raznost;

begin

for x:=1 to v do

for y:=1 to w do

begin

if zoopark1[x]=zoopark2[y] then

begin

zoopark1[x]:=' ';

zoopark2[y]:=' ';

end;

end;

for j:=1 to v do

begin

rezultat[j]:=zoopark1[j];

end;

t:=0;

for d:=j+1 to v+w do

begin

t:=t+1;

rezultat[d] :=zoopark2[t];

end;

clrscr;

writeln ('Rezultat rawen->>');

for i:=1 to v+w do

begin

if rezultat[i] <> ' ' then

writeln (rezultat[i]);

end;

end;

procedure raznost;

begin

for x:=1 to v do

begin

rezultat[x] :=zoopark1 [x] ;

for i:=1 to v do

for j:=1 to w do

begin

if rezultat[i]=zoopark2[j] then

rezultat[i]:=' ';

end;

clrscr;

writeln ('Rezultat rawen->>');

for i:=1 to w do

begin

if rezultat[i] <> ' ' then

writeln (rezultat[i]);

end;

end;

end;

procedure dekartovoe_proizvedenie;

begin

i:=0;

for x:=1 to v do

for y:=1 to w do

begin

inc (i);

str:=' ';

if zoopark1[x]<>zoopark2[y] then rezultat[i]:=zoopark1[x]+' * '+zoopark2[y];

end;

clrscr;

writeln ('Rezultat rawen->>');

for i:=1 to v*w do

begin

if rezultat[i] <> ' ' then

writeln (rezultat[i]);

end;

end;

begin

clrscr;

textbackground(white);

textcolor(black);

writeln ('Wwedite kolichestwo giwotnih 1 zooparka:');

readln(v);

writeln ('Wwedite kolichestwo giwotnih 2 zooparka:');

readln(w);

write('Wwedite giwotnih 1 zooparka ');

writeln(',w konce nagat Enter:');

for k:=1 to v do

begin

readln (zoopark1[k]);

end;

write('Wwedite giwotnih 2 zooparka ');

writeln(',w konce nagat Enter:');

for i:=1 to w do

begin

readln (zoopark2[i]);

end;

for i:=1 to v do

zpark1[i] :=zoopark1[i];

for i:=1 to w do

zpark2[i] :=zoopark2[i];

menu:

writeln ('Wwesti nomer operacii:');

writeln ('1->>Peresechenie');

writeln ('2->>Obedinenie');

writeln ('3->>Simmetricheska raznost');

writeln ('4->>Raznost');

writeln ('5->>Dekartowoe proizwedenie');

writeln ('6->>Wihod');

writeln ('Wi Wibrali:');

readln (wiborka);

case wiborka of

'1': peresechenie;

'2': obedinenie;

'3': simmetrichnaya_raznost;

'4': raznost;

'5': dekartovoe_proizvedenie;

'6': exit;

end;

readln;

clrscr;

for i:=1 to v*w do

rezultat[i]:= ' ';

for i:=1 to v do

begin

zoopark1[i]:= zpark1[i];

end;

for i:=1 to w do

begin

zoopark2[i]:=zpark2[i];

end;

goto menu;

end.


Подобные документы

  • Теория множества, основные операции над множествами, мощность множества. Теорема о сравнении множеств. Размер множества в Turbo Pascal, предельно допустимое количество элементов и их порядок. Выполнение действий объединения, исключения и пересечения.

    курсовая работа [376,6 K], добавлен 31.01.2016

  • Сущность понятия "комбинаторика". Программа формирования перестановок, сочетаний, размещений с выводом результатов на экран дисплея. Алгоритм программы, написанной на языке Паскаль. Список идентификаторов переменных программы. Список процедур программы.

    лабораторная работа [19,8 K], добавлен 27.07.2010

  • Правила описания множественных типов данных, приемов использования множеств и операций над множествами в Паскаль-программах. Разработка в Турбо Паскале программы вывода всех согласных букв, которые входят хотя бы в одно слово заданного предложения.

    контрольная работа [30,8 K], добавлен 25.12.2010

  • Изучение организации диалоговой программы и закрепления основных элементов программирования на языке Паскаль и Си (Delphi, C++ Builder). Описание представления информации в программах на языках высокого уровня. Сравнительная характеристика Delphi и C++.

    курсовая работа [3,1 M], добавлен 27.02.2015

  • Общая характеристика языка программирования Турбо Паскаль: операторы, циклы, файлы. Процедуры и функции модуля Crt. Структурная и функциональная схема программы учета учащихся, таблица идентификаторов. Список и описание использованных подпрограмм.

    курсовая работа [702,9 K], добавлен 29.01.2011

  • Сравнительный анализ языков программирования высокого уровня Си и Паскаль. Реализация алгоритма обработки данных. Тестирование и отладка программы или пакета программ. Структура программы на языке Турбо Паскаль. Указатели и векторные типы данных.

    курсовая работа [233,5 K], добавлен 14.12.2012

  • Сравнительный анализ языков программирования высокого уровня Си и Паскаль: структура программы, типы данных, арифметические операции, операторы ветвления и циклы. Создание программы поиска подпоследовательностей одинаковых элементов в множественном виде.

    курсовая работа [78,9 K], добавлен 28.12.2012

  • Выбор метода проектирования транслятора с языка Паскаль на язык Си, разработка и кодирование алгоритма программы. Использование допустимых операторов в исходном тексте, определение типов переменных и синтаксиса логических и арифметических выражений.

    курсовая работа [1,0 M], добавлен 03.07.2011

  • Понятие и принципы реализации оператора ветвления, его значение и роль в языке программирования Паскаль. Основные логические операции и сложные логические выражения, их содержание. Программа упорядочения значений двух переменных, ее этапы и методы.

    презентация [187,9 K], добавлен 02.04.2014

  • Программирование на языке Паскаль: алфавит, решение задач, простейшие программы, разветвляющие программы, циклические программы, ввод-вывод, массивы, подпрограммы, строковые данные, записи, файлы, использование библиотеки CRT, графика в Паскале.

    учебное пособие [211,1 K], добавлен 30.03.2008

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.