تسجيل الدخول

مشاهدة النسخة كاملة : مشكل تكرار قيم الدالة 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: