Модуль main

unit main;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ImgList, ComCtrls, StdCtrls, ToolWin;

type

TForm1 = class (TForm)

ToolBar1: TToolBar;

Memo1: TMemo;

ToolButton1: TToolButton;

ToolButton2: TToolButton;

addmno: TToolButton;

ToolButton4: TToolButton;

peresmno: TToolButton;

ssubmno: TToolButton;

ToolButton8: TToolButton;

ToolButton9: TToolButton;

ImageList1: TImageList;

submno: TToolButton;

mulmno: TToolButton;

procedure PrgEnd (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure InputMNO (Sender: TObject);

procedure OperationNM (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses op_mno, vvod;

{$R *. dfm}

var

a1, a2, a3: mno_mas;

n3,n1,n2: integer;

function vyvod (a: mno_mas; n: integer): string;

// вывод множества

var

i: integer;

s: string;

begin

s: = '';

for i: =1 to n do

s: = s + FloatToStrF (a [i], ffFixed, 4,2) + '; ';

vyvod: = s;

end;

procedure TForm1. PrgEnd (Sender: TObject);

// выход из программы

begin

Close;

end;

procedure TForm1. FormCreate (Sender: TObject);

// создание формы и инициализация множеств

var

i: integer;

begin

Randomize;

n1: = Random (10) + 5;

n2: = Random (10) + 5;

for i: = 1 to n1 do

a1 [i]: = Random (11) / 10;

for i: = 1 to n2 do

a2 [i]: = Random (11) / 10;

end;

procedure TForm1. InputMNO (Sender: TObject);

// ввод нечетких множеств

var

i: integer;

begin

if Sender = ToolButton1 then

begin

Form2. SpinEdit1. Value: = n1;

Form2. StringGrid1. ColCount: = n1;

Form2. Caption: = 'Ввод множества А';

for i: = 1 to n1 do

Form2. StringGrid1. Cells [i - 1, 0]: = FloatToStrF (a1 [i], ffFixed, 3, 1);

Form2. ShowModal;

n1: = Form2. SpinEdit1. Value;

for i: = 1 to n1 do

a1 [i]: = StrToFloat (Form2. StringGrid1. Cells [i - 1, 0]);

end;

if Sender = ToolButton2 then

begin

Form2. SpinEdit1. Value: = n2;

Form2. StringGrid1. ColCount: = n2;

Form2. Caption: = 'Ввод множества B';

for i: = 1 to n2 do

Form2. StringGrid1. Cells [i - 1, 0]: = FloatToStrF (a2 [i], ffFixed, 3, 1);

Form2. ShowModal;

n2: = Form2. SpinEdit1. Value;

for i: = 1 to n2 do

a2 [i]: = StrToFloat (Form2. StringGrid1. Cells [i - 1, 0]);

end;

end;

procedure TForm1. OperationNM (Sender: TObject);

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

begin

Memo1. Clear;

if Sender = addmno then

begin

Memo1. Lines. Add ('Операция: ' + addmno. Hint);

objed (a1,n1,a2,n2,a3,n3);

end;

if Sender = peresmno then

begin

Memo1. Lines. Add ('Операция: ' + peresmno. Hint);

peres (a1,n1,a2,n2,a3,n3);

end;

if Sender = submno then

begin

Memo1. Lines. Add ('Операция: ' + submno. Hint);

razn (a1,n1,a2,n2,a3,n3);

end;

if Sender = ssubmno then

begin

Memo1. Lines. Add ('Операция: ' + ssubmno. Hint);

simrazn (a1,n1,a2,n2,a3,n3);

end;

if Sender = mulmno then

begin

Memo1. Lines. Add ('Операция: ' + mulmno. Hint);

proizved (a1,n1,a2,n2,a3,n3);

end;

Memo1. Lines. Add ('Множество А');

Memo1. Lines. Add (vyvod (a1,n1));

Memo1. Lines. Add ('Множество В');

Memo1. Lines. Add (vyvod (a2,n2));

Memo1. Lines. Add ('Результат');

Memo1. Lines. Add (vyvod (a3,n3));

end;

end.

Модуль op_mno

unit op_mno;

interface

type

mno_mas = array [1.20] of real;

bin_mas = array [1.20] of 0.1;

procedure peres (a1: mno_mas; n1: integer; a2: mno_mas; n2: integer;

var a3: mno_mas; var n3: integer);

procedure objed (a1: mno_mas; n1: integer; a2: mno_mas; n2: integer;

var a3: mno_mas; var n3: integer);

procedure razn (a1: mno_mas; n1: integer; a2: mno_mas; n2: integer;

var a3: mno_mas; var n3: integer);

procedure simrazn (a1: mno_mas; n1: integer; a2: mno_mas; n2: integer;

var a3: mno_mas; var n3: integer);

procedure proizved (a1: mno_mas; n1: integer; a2: mno_mas; n2: integer;

var a3: mno_mas; var n3: integer);

implementation

uses math;

procedure mu (a: mno_mas; n: integer; var b: bin_mas);

{характеристическая функция}

var

i: integer;

begin

for i: =1 to n do

if a [i] <0.5 then

b [i]: = 0

else

b [i]: = 1;

end;

procedure peres (a1: mno_mas; n1: integer; a2: mno_mas; n2: integer;

var a3: mno_mas; var n3: integer);

{пересечение множеств}

var

i: integer;

begin

n3: =n1;

if n2<n3 then

n3: =n2;

for i: =1 to n3 do

a3 [i]: =min (a1 [i], a2 [i]);

end;

procedure objed (a1: mno_mas; n1: integer; a2: mno_mas; n2: integer;

var a3: mno_mas; var n3: integer);

{объединение множеств}

var

i: integer;

begin

n3: =n1;

if n2<n3 then

n3: =n2;

for i: =1 to n3 do

a3 [i]: =max (a1 [i], a2 [i]);

end;

procedure razn (a1: mno_mas; n1: integer; a2: mno_mas; n2: integer;

var a3: mno_mas; var n3: integer);

{разность множеств}

var

i: integer;

begin

n3: =n1;

if n2<n3 then

n3: =n2;

for i: =1 to n3 do

a2 [i]: =1-a2 [i];

peres (a1,n1,a2,n2,a3,n3);

end;

procedure simrazn (a1: mno_mas; n1: integer; a2: mno_mas; n2: integer;

var a3: mno_mas; var n3: integer);

{симметричная разность множеств}

var

i: integer;

aa1, aa2: bin_mas;

begin

mu (a1, n1, aa1);

mu (a2, n2, aa2);

n3: =n1;

for i: =1 to n3 do

a3 [i]: =0;

for i: =1 to n3 do

if (aa1 [i] =1) and (aa2 [i] =1) then

a3 [i]: =a1 [i];

end;

procedure proizved (a1: mno_mas; n1: integer; a2: mno_mas; n2: integer;

var a3: mno_mas; var n3: integer);

{произведение множеств}

var

i: integer;

begin

n3: =n1;

if n2<n3 then

n3: =n2;

for i: =1 to n3 do

a3 [i]: =a1 [i] *a2 [i];

end;

end.

Модуль vvod

unit vvod;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Spin, Buttons, Grids;

type

TForm2 = class (TForm)

StringGrid1: TStringGrid;

BitBtn1: TBitBtn;

Label1: TLabel;

SpinEdit1: TSpinEdit;

procedure SpinEdit1Change (Sender: TObject);

end;

var

Form2: TForm2;

implementation

{$R *. dfm}

procedure TForm2. SpinEdit1Change (Sender: TObject);

// изменение размерности множества

begin

StringGrid1. ColCount: = SpinEdit1. Value;

end;

end.

Размещено на Allbest.ru