مشاهدة النسخة كاملة : مشكل تكرار قيم الدالة random
عبد الهادي بهاب
12-12-2015, 08:24 PM
السلام عليكم ورحمة الله وبركاته
هل فيه طريقة لتفادي تكرار القيم التي تنتجها الدالة random
:abc_152::abc_152:
ثامر أبو بلقيس
12-12-2015, 08:55 PM
vv=20;k = {};k[1]= Math.Random(1, vv);n=1-----------------------
while Table.Count(k)~= 20 do------------------------------------
t=Math.Random(1, vv);for i = 1,Table.Count(k) do---------------
if t==k[i] then-------------------------------------------------
n=2;end;end----------------------------------------------------
if n == 1 then-------------------------------------------------
k[Table.Count(k)+1]=t;else-------------------------------------
n=1;end;end;---------------------------------------------------
samer={}-------------------------------------------------------
for i =1,20 do-------------------------------------------------
Table.Insert(samer, i, k[i]);----------------------------------
rondom_list = Table.Concat(samer, " - ", 1, TABLE_ALL)---------
end------------------------------------------------------------
Dialog.Message("(^..^)",rondom_list);
ظهور الأعداد من 1 الى 20 بدون تكرار
غير منقول :abc_138:
عبد الهادي بهاب
12-12-2015, 09:00 PM
vv=20;k = {};k[1]= Math.Random(1, vv);n=1-----------------------
while Table.Count(k)~= 20 do------------------------------------
t=Math.Random(1, vv);for i = 1,Table.Count(k) do---------------
if t==k[i] then-------------------------------------------------
n=2;end;end----------------------------------------------------
if n == 1 then-------------------------------------------------
k[Table.Count(k)+1]=t;else-------------------------------------
n=1;end;end;---------------------------------------------------
samer={}-------------------------------------------------------
for i =1,20 do-------------------------------------------------
Table.Insert(samer, i, k[i]);----------------------------------
rondom_list = Table.Concat(samer, " - ", 1, TABLE_ALL)---------
end------------------------------------------------------------
Dialog.Message("(^..^)",rondom_list);ظهور الأعداد من 1 الى 20 بدون تكرار
غير منقول :abc_138:
:abc_050::abc_050::abc_050:
ربي يفرج عليك استاذ .......طبعا لقد فرجت عني .......وجدت بعض الحلول و لم افهم منها شيئا
ساجرب ولنا عودة
عبد الهادي بهاب
12-12-2015, 09:03 PM
للمرة الثانية اريد منك استاذي العزيز ملف من سيربح المليون و اعادة رفعه في موقع غير الخليج
------ رجائي ان تسثني هذا الملف من المبدا الشخصي -------
عبد العزيز البسكري
12-12-2015, 09:12 PM
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
منوبة
28-01-2016, 11:11 AM
شكرا وبارك الله لكما لما تقدومه لنا من افادات في طرح الاسئلة وفي الحلول
شكرا جزيلا
:abc_152::abc_152:
vBulletin® v3.8.11, Copyright ©2000-2024, abohmam