nteger;;:=Random (10) + 5;:=Random (10) + 5; i:=1 to n1 do [i]:=Random (11) / 10; i:=1 to n2 do [i]:=Random (11) / 10;; TForm1. InputMNO (Sender: TObject);
/ / введення нечітких множин: integer; Sender=ToolButton1 then. SpinEdit1. Value:=n1;. StringGrid1. ColCount:=n1;. Caption:=«Введення безлічі А»; i:=1 to n1 do. StringGrid1. Cells [i - 1, 0]:=FloatToStrF (a1 [i], ffFixed, 3, 1);. ShowModal;:=Form2. SpinEdit1. Value; i:=1 to n1 do [i]:=StrToFloat (Form2. StringGrid1. Cells [i - 1, 0]);; Sender=ToolButton2 then. SpinEdit1. Value:=n2;. StringGrid1. ColCount:=n2;. Caption:=«Введення безлічі B»; i:=1 to n2 do. StringGrid1. Cells [i - 1, 0]:=FloatToStrF (a2 [i], ffFixed, 3, 1);. ShowModal;:=Form2. SpinEdit1. Value; i:=1 to n2 do [i]:=StrToFloat (Form2. StringGrid1. Cells [i - 1, 0]);;; TForm1. OperationNM (Sender: TObject);
/ / операції над множинами. Clear; Sender=addmno then. Lines. Add («Операція:» + addmno. Hint); (a1, n1, a2, n2, a3, n3);; Sender=peresmno then. Lines. Add («Операція:» + peresmno. Hint); (a1, n1, a2, n2, a3, n3);; Sender=submno then. Lines. Add («Операція:» + submno. Hint); (a1, n1, a2, n2, a3, n3);; Sender=ssubmno then. Lines. Add («Операція:» + ssubmno. Hint); (a1, n1, a2, n2, a3, n3);; Sender=mulmno then. Lines. Add («Операція:» + mulmno. Hint); (a1, n1, a2, n2, a3, n3);;. Lines. Add («Безліч А»);. Lines. Add (vyvod (a1, n1));. Lines. Add («Безліч В»);. Lines. Add (vyvod (a2, n2));. Lines. Add («Результат»);. Lines. Add (vyvod (a3, n3));;.
Модуль op_mno
unit op_mno; _mas=array [1.20] of real; _mas=array [1.20] of 0.1; peres (a1: mno_mas; n1: integer; a2: mno_mas; n2: integer; a3: mno_mas ; var n3: integer); objed (a1: mno_mas; n1: integer; a2: mno_mas; n2: integer; a3: mno_mas; var n3: integer); razn (a1: mno_mas; n1: integer; a2: mno_mas; n2 : integer; a3: mno_mas; var n3: integer); simrazn (a1: mno_mas; n1: integer; a2: mno_mas; n2: integer; a3: mno_mas; var n3: integer); proizved (a1: mno_mas; n1: integer ; a2: mno_mas; n2: integer; a3: mno_mas; var n3: integer); math; mu (a: mno_mas; n: integer; var b: bin_mas);
{характеристична функція}: integer; i:=1 to n doa [i] <0.5 then [i]:=0 [i]:=1;; peres (a1: mno_mas; n1 : integer; a2: mno_mas; n2: integer; a3: mno_mas; var n3: integer);
{перетин множин}: integer;:=n1; n2
{об'єднання множин}: integer;:=n1; n2
{різниця множин}: integer;:=n1; n2
{симетрична різниця множин}: integer;, aa2: bin_mas; (a1, n1, aa1); (a2, n2, aa2);:=n1; i:=1 to n3 do [i ]:=0; i:=1 to n3 do (aa1 [i]=1) and (aa2 [i]=1) then [i]:=a1 [i];; proizved (a1: mno_mas; n1: integer ; a2: mno_mas; n2: integer; a3: mno_mas; var n3: integer);
{твір множин}: integer;:=n1; n2
...
