Referat.me

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

Вид работы: лабораторная работа

Рубрика: Информатика и программирование

Размер файла: 122.41 Kb

Скачать файл: referat.me-135927.docx

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

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

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

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

Цель работы:

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

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

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

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

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

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

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

2. TurboPascal 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] 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

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 7.0.)

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

  • Файлы

    Описание типизированных файлов. Принципы работы с файлами, создание и открытие на запись нового файла. Чтение из файла, открытие существующего файла на чтение. Определение имени файла. Запись в текстовый файл. Описание множества и операции над ними.

  • Язык программирования высокого уровня С++

    Характеристика основных разделов программирования, изучаемых в курсе программирования на языке С++. Описание внутренних переменных, входных и выходных данных. Особенности использования компилятора Microsoft Visual Studio 2008. Руководство пользователя.

  • Основы программирования и алгоритмизации

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

  • Примеры решения задач по программированию

    Написание программы вычисления сопротивления электрической цепи, состоящей из двух параллельно и двух последовательно соединенных сопротивлений. Схема машинного алгоритма по условию задачи. Применение операций при написании программ на языке C/C++.

  • ЛИСП-реализация основных операций над нечеткими множествами

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

  • ЛИСП-реализация операций над матрицами

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

  • Алгоритмические языки: использование множеств

    Изучение способов описания и использования множеств, разработка алгоритма и составление программы для решения задачи. Нахождение в последовательности целых чисел таких, которые встречаются в ней ровно два раза. Набор программы, ее отладка и тестирование.