برمجة تقاطع واتحاد المجموعات ورسمها

أخي الكريم كفكرة

أنشاء مصفوفتين

type
 TMyArray = array of Integer;
var
 MyArray1 : TMyArray;
 MyArray2 : TMyArray;

ثم قم بتحديد طول عناصر كل مصفوفة بمايقابلها من عدد عناصر كل مجموعة مثلا لنفرض 6

 SetLength(MyArray, 6);
 MyArray1[1]:=1;
 MyArray1[2]:=2;
 MyArray1[3]:=3;
 MyArray1[4]:=4;
 MyArray1[5]:=5;
 MyArray1[6]:=6;

ثم أجر إختبار مساوى للتقاطع لنفرض ء عنصر من المجموعة الأولى

 x:= StrToInt(Edit1.Text);
 for I:=1 to high(myArray) do
   if x = MyArray then
	 ShowMessage('true'+ '  '+ inttostr(i));
 MyArray:= nil;

وجمع المصفوفتين للأجتماع

بارك الله فيك على هذه الفكرة الجيدة

جاري التجريب

وجزاك الله خيرا

جزاك الله خيراً موضوع جميل جداً