مشكل تكرار قيم الدالة random

[عبد الهادي بهاب]

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

هل فيه طريقة لتفادي تكرار القيم التي تنتجها الدالة random

:abc_152::abc_152:

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

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:

[عبد الهادي بهاب]

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:

ربي يفرج عليك استاذ .......طبعا لقد فرجت عني .......وجدت بعض الحلول و لم افهم منها شيئا

ساجرب ولنا عودة

[عبد الهادي بهاب]

للمرة الثانية اريد منك استاذي العزيز ملف من سيربح المليون و اعادة رفعه في موقع غير الخليج

------ رجائي ان تسثني هذا الملف من المبدا الشخصي -------

[عبد العزيز البسكري]

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

[منوبة]

شكرا وبارك الله لكما لما تقدومه لنا من افادات في طرح الاسئلة وفي الحلول
شكرا جزيلا
:abc_152::abc_152: