Ramdon real numbers  

Send By: Radikal (Q3 Team)
Web : http://www.q3.nu
Email: radikal@q3.nu
Date: 26/11/03

Tip accessed 600 times

 



 NumeroRealAleatorio:=Random*10;







NumeroRealAleatorio:=Random*10;



 RandomRange (X,Y)





 procedure TForm1.Button1Click(Sender: TObject);
 var
   F: integer;
 begin
   Memo1.Clear;
   Randomize;
   for F := 1 to 30 do
   begin
      Memo1.Lines.Add ( IntToStr ( RandomRange ( 0,11 )));
   end;
 end;




Updated at 26/11/2003 (Ricardo)