أنا أستخدم دلفى 7 كنت أريد أن أجد طريقة لإنتاج أرقام عشوائية ولكن دون تكرار نفس الرقم أكثر من مرة وذلك فى rangeمعين من 1 الى 50 مثلاً و لكم جزيل الشكر
randomization without repeating
مغلق
اذا كانت المشكلة في الطريقة فهذا هو الرابط
اما بخصوص الرانج فبامكانك ان تستخدم احد الطرق المذكوره هناك
مع اضافة الحد الصغر من الرانج وحعل بارامتر الدالة هو الفرق بين الحدين
مثال :
عدد عشوائي c من أ الى ب ولديك الدالة f
(c:= a+ f(b-a
حيث f هي احد الطرق المذكورة بالرابط اعلاه
أضاعوني وأي فتى أضاعـوا * * * ليـوم كــريهـة وســـداد ثغــــر
وخـــــلونـي ومعتـرك المنايـا * * * وقد شـــرعوا أسنــتهم لنحـري
كأني لم أكــــــن فيهـم وسيطـا * * * ولم تك نســبتي في آل عمــرو
أجرر في الجـــوامع كـل يـوم * * * ألا لله مظــــلمتـي وهـصـــري
عسى الملك المجيب لمن دعاه * * * سينجيني فيعلم كيــف شكـري
فأجـــزي بالكرامـة أهـل ودي * * * وأجزي بالضـغينة أهل ضري
عفوا نسيت ان اتحدث عن التكرارا
اذا كان عدد مرات استدعاء الدالة او التابع اكبر من طول الفترة فالتكرار لابد منه فيما عدا ذلك فالرابط اعلاه يقوم بالواجب
أضاعوني وأي فتى أضاعـوا * * * ليـوم كــريهـة وســـداد ثغــــر
وخـــــلونـي ومعتـرك المنايـا * * * وقد شـــرعوا أسنــتهم لنحـري
كأني لم أكــــــن فيهـم وسيطـا * * * ولم تك نســبتي في آل عمــرو
أجرر في الجـــوامع كـل يـوم * * * ألا لله مظــــلمتـي وهـصـــري
عسى الملك المجيب لمن دعاه * * * سينجيني فيعلم كيــف شكـري
فأجـــزي بالكرامـة أهـل ودي * * * وأجزي بالضـغينة أهل ضري
هذا كود فيه فكرة بسيطة في ترتيب أعداد بطريقة عشوائية..
استعملت مصفوفتين الأولى هى الأصل و الثانية هي التي يجب مللأها من الأصل لكن بترتيب عشوائي. المصفوفة الأولىأسميتها MyArray و مللأتها بأرقام من 1 إلى 25 . و الثانية هي RandomArray المطلوب ملؤها بنفس أرقام المصفوفة الأصل MyArray.
عند النقر على الزر يتم إنشاء مصفوفة CheckArr من 1 إلى 25 من صنف Boolean حيث ان كل خانة تحتوي على false . دور هذه المصفوفة هي تسجيل كل خانة من المصفوفة الأصل هل تم اختيارها أم لا؟
هذا نص الشيفرة أرجو أن تكون واضحة.
:D
سأتغيب عن المنتدى وستكون لي زيارات خفيفة بين الحين و الحين
يا صاحب الهم إن الهم منفرج.....................أبشر بخير فإن الفارج الله.
اليأس يقطع أحيانا بصاحبه..........................لا تيأس فإن الكافي الله.
الله يحدث بعد العسر ميسرة.........................لا تفزعن فإن الصانع الله.
إذا بليت فثق بالله وارض به...................فإن الذي يكشف البلوى هو الله.
و الله ما لك غير الله من أحد.......................فحسبك الله في كل لك الله
أخوكم مراد
Dear ikossan, sooooo many thanks for ur fast answer for my question it was really very useful for me
and many thanks for you romanof for caring to answer my question.
هذا الموضوع مغلق.