PDA

View Full Version : عدد تصادفی



ramin_rp
یک شنبه 20 مهر 1382, 15:23 عصر
سلام
کد بزنامه ای که یک عدد تصادفی تولید کند
با تشکر
رامین

Kambiz
یک شنبه 20 مهر 1382, 15:38 عصر
چرا از تابع Random دلفی استفاده نمی‌کنی؟

ramin_rp
یک شنبه 20 مهر 1382, 19:32 عصر
سلام
در صورت امکان بشتر توضیح دهید
رامین

houshmand
یک شنبه 20 مهر 1382, 19:55 عصر
در صورت امکان بشتر توضیح دهید
:shock:
نگاه کنید به راهنمای دلفی :)
delphi help
Random function :arrow:
Randomize procedure :arrow:


Delphi syntax:

function Random [ ( Range: Integer) ];

Description

In Delphi code, Random returns a random number within the range 0 <= X < Range. If Range is not specified, the result is a real-type random number within the range

0 <= X < 1.

To initialize the random number generator, add a single call Randomize or assign a value to the RandSeed variable before making any calls to Random.





var

I: Integer;
begin
Randomize;
for I := 1 to 50 do begin
{ Write to window at random locations }
Canvas.TextOut(Random(Width), Random(Height), 'Boo!');
end;
end;



procedure Randomize;
...
Randomize initializes the built-in random number generator with a random value (obtained from the system clock). The random number generator should be initialized by making a call to Randomize, or by assigning a value to RandSeed.

Inprise
دوشنبه 21 مهر 1382, 12:55 عصر
دقت کنید که خروجی روالهای فوق چندان هم Random نیست . برای کاربردهای حساس محاسباتی از این توابع استفاده نکنید اما برای کاربردهای عمومی مشکلی ایجاد نمیشه .

SReza1
چهارشنبه 23 مهر 1382, 22:56 عصر
قبل از استفاده از تابع random از تابع randomize استفاده کن!! ولی به قول دوستمون این اعداد random واقعی نیستند و ممکنه که تکرار شند!!

ramin_rp
چهارشنبه 23 مهر 1382, 23:03 عصر
سلام
پس چطوری رندم واقعی بسازم؟