خوارزمية مبتكرة : تجزئة مجموعة

[ثامر أبو بلقيس]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته

يمكن الحصول على كل المجموعات الجزئية الممكن تكوينها من مجموعة
بكل احتمالاتها تمت البرمجة باستغلال نظام بينير

مسموح بالنقل أو التحويل للغتك البرمجية المفضلة :
a = {1,2,3,4}
n = Table.Count(a);
p =""
r = ""
k=1
s=0
for i= 0,n-1 do
s=s+2^i
end
------------------------------
for j = 1,s do
m=j
while m>0 do
--"{"
if Math.Mod(m, 2)==1 then
p=p..a[k]..","
end
m = Math.Floor(m/2);
k=k+1
end
x = String.Length(p);
y = String.Mid(p, 1, x-1);
r=r.."{"..y.."}".."\r\n"
p =""
k=1
end
Dialog.Message("algorithme innovant_abou_belkiss","{}".. "\r\n"..r);


السلام عليكم ورحمة الله

[فرح صالحي]

السلام عليكم ورحمة الله وبركاته
1. جازاك الله خيرا كثيرا على ما تقدمه باستمرار
2. رمضانك مبارك كريم
3. تهانينا لنتائج المنتخب وان شاء الله الى ادوار متقدمة
والسلام عليكم ورحمة الله وبركاته
http://im86.gulfup.com/byWyVY.gif

[ياسرهتهت]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
شـــــكراً لـــــك أستـــاذنا الكريــــــم
:abc_139:ثــامر أبو بلقيـــــــس:abc_139:
والله يعطيك العافية

موفق بإذن الله ... لك مني أجمل تحية .
:abc_138::abc_138::abc_138:

[امل الماضي]

جزاك الله خيرا والدي الكريم وجعله في موازين حسناتك
رمضان كريم
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[ثامر أبو بلقيس]

شكرا على المرور و الكلمات المشجعة إخواني

فرح :abc_138: ياسر :abc_138: أمل :abc_022:

شـكــرا وبارك الله فيكم ... لكم مني أجمل تحية .
رمضان كريم

[أبو فارس]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[ثامر أبو بلقيس]

مرور عطر :abc_138:

[أبو يوسف]

جزاكم الله خيرا اخانا ابا بلقيس وبارك الله فيك

.

[عبود عبود]

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

[ثامر أبو بلقيس]

جزاكم الله خيرا اخانا ابا بلقيس وبارك الله فيك

.

تقديري :abc_138: شكرا على تشجيعكم المتواصل

[ثامر أبو بلقيس]

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

مرور زاد لمحاولتنا توهجا شكرا :abc_138: