تولید اعداد تصادفی واقعی

[SReza1]

با کد زیر متونید اعداد تصادفی واقعی تولید کنید این برنامه با دلفی نوشته شده است ولی الگوریتم اون بسیار واضح است!! برای 64 عدد( میتونید به تعداد دلخواه عوض کنید)

unit Unit1; 



interface 



uses 

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 

  StdCtrls; 



type 

  TForm1 = class(TForm) 

    Button1: TButton; 

    ListBox1: TListBox; 

    procedure Button1Click(Sender: TObject); 

  private 

    Arr1,Arr2 : Array[1..64] of Integer; 

    { Private declarations } 

  public 

    { Public declarations } 

  end; 



var 

  Form1: TForm1; 



implementation 



{$R *.DFM} 



procedure TForm1.Button1Click(Sender: TObject); 

Var I , J , Temp : Integer; 

begin 

    For I := 0 To 64 Do 

        Arr1[I + 1] := I; 

    Randomize; 

    J := 64; 

    For I := 1 to 64 do 

    Begin 

        Temp := Random(J); 

        Arr2[I] := Arr1[Temp + 1]; 

        Arr1[Temp + 1] := Arr1[j]; 

        Dec(J); 

    End; 

    For I := 1 To 64 Do 

        Listbox1.Items.Add(IntToStr(Arr2[I&#93  ;)); 

End; 



end.