random is problem

الرجاء عدم تكرير الموضوع فى اكثر من قسم, قمت بحذف المواضيع المكرره.

والسلام

انا اسف يا اخ احمد غريب

إستخدم الدوال الخاصه بها .. يوجد العديد منها . مثال :

procedure TForm1.Button1Click(Sender: TObject);
var x:integer;
begin
Randomize;
x:=RandomRange(10,20);
showmessage(inttostr(x));
end;

شكرا اخ عروة عيسى بس كان قصدي كيف تعمل الراندوم نفسها من الداخل

يعني

فكرة جميلة ;) ... لماذا لا نعمل دالة Random شخصية :lol: .

دالة Random الموجودة في ديلفي أو غيرها من لغات البرمجة عادة ما تستخدم العداد الداخلي الموجود باللوحة الأم للحاسب في مركب إلكتروني يسمى Timer( مركب إلكتروني مكلف بالعد بسرعة كبيرة و يسجل بذلك الثواني و الدقائق التي يستعملها النظام لعرض الوقت والتاريخ).

يوجد عداد خاص تتميز به معالجات البانتيوم يسمى RDTSC.. هذا العداد يبدء العد كلما قمت بتغدية الحاسوب بالتيار الكهربائي وفق سرعة نبضات المعالج, و هو عداد كبير سعته هي 64بيت أي 8بايتات.

هذه random خاصة لك يا أخي romanof .

تعطيك رقم عشوائي ما بين 0 والرقم الذي تريده, فقط سجل الحد الأقصى في العدد الثابت MaxValue..

function cpugettick:int64;
asm
    dw 310Fh // rdtsc Counter only for Pentim Processors and equivalents
end;

// My random Function;)
procedure TForm1.Button1Click(Sender: TObject);
const
 maxValue = 1000;
var
 Clock: Int64;
 MyRandom: integer;
begin
   Clock:= cpugettick;
// get a rundom number betwen 0 and maxvalue
  MyRandom:= clock mod maxValue;
  form1.Caption:= 'The Random Number is:  ' + IntToStr(MyRandom);
end;

(h)

عليك بهذه الطريقة البدائية السهلة والقوية .

Algorithm of Congruential Method:

R(i+1) = ( A * R(i) + C ) moduulo T

----------------------------

حيث:

R(i+1) new R.N

R(i) Previous R.N

A,C,T Conatant (any Constant)

ملحوظة :

-يجب ان تختار قيمة بدائية تولد منها القيم الجديدة.

-كلما زودت ال T قل احتمال التكرار , مثال: لو T تساوي 5 راح يتكرر بعد 5 ارقام , ولو تساوي 1000 راح يتكرر بعد 1000 فكما شئت .

وشكراً

شكرا ikossan ذكرتني بطريقة بتعريف Random في لغة الباسكال

:D