Генерация Случайных Чисел

[Кирилл13]

Нужно присвоить случайные значения из диапазона [-0.1;+0.1]
Как правильно сделать.
Мой вариант:

 For i:=0 to 10 do
    begin
      Randomize;
      rand:=(-Random(10))*(0.01);
      StringGrid3.Cells[i,1]:=FloatToStr(rand);  // W0

[Impario]

For i:=-0.1 to 0.1 do
begin
rand:=Random (1)-2;

[Кирилл13]

Выдает ошибку
Incompatible types: 'Integer' and 'Extended'

[_Dmitry]

//Генератор случайных вещественных чисел на отрезке [a,b)
function RandFloatAB(const a,b: Real): Real;
begin
  if a > b then Result:=b+random*(a-b)
           else Result:=a+random*(b-a);
end;

и зачем вам Randomize внутри цикла?

[Roof]

For i:=-0.1 to 0.1 do - в делфи и паскале счетчики только целочисленного типа,

насколько я знаю.
а решение я вижу таковое:

 var
  ran: real;
  zn: integer;

begin

  randomize;
  zn:= random(2);
  if zn=1 then
     zn:=-1
  else
    zn:=1;
  ran:=random(10)/zn/100;
  writeln(ran:2:2);
  readln;

end.

и без всяких циклов

[Reskov]

или я что не понимаю или хз, но помоему код такой

var
k:double;


Randomize;
k:=Random/5-0.1;

и все

[Кирилл13]

Спасибо всем за помощь!