请问如何编程生成随机实数？

Question

parent:Array[0..9]of real
数组中的每个元素为一随机生成的实数，比如为2.1
请问如何编程生成随机实数？
在线！急！
最好能写出示例代码。
谢谢！

Answer 1

procedure TForm1.Button2Click(Sender: TObject);
var
  MyArr: array[0..9] of Real;
  i: Integer;
begin
  Randomize;
  for i := 0 to High(MyArr) do
    MyArr[i] := (Random(9) + 1) / (Random(9) + 1);
end;只是个思路，你可以参考一下。

Answer 2

procedure TForm1.Button1Click(Sender: TObject);var
a:real;
begin
randomize;
a:=random(10)*random;
a := Round(a*10)/10;
self.Label1.Caption:=floattostr(a);
end;end.

Answer 3

谢谢各位！
编译时出错，错误是random(10) too many actual parameters
请各位指正

Answer 4

可以自己设计个方法呀
var a:real;
  a:=(random(9)*10+random(9))/10;
a就是随机实数

Answer 5

MyArr[i] := (Random(9) + 1) / (Random(9) + 1);
变异时光标落在random(9)处
错误提示为too many actual parameters

Answer 6

Random(100) 产生0 到 99 的数

Answer 7

我用的是delphi6.0
我用你提供的代码实验，代码如下：
procedure Tform1.random;
var
  MyArr: array[0..9] of Real;
  i: Integer;
begin
  Randomize;
  for i := 0 to High(MyArr) do
    MyArr[i] := (Random(9) + 1) / (Random(9) + 1);end;