баг в Random

[Илья Аввакумов]

Функция random в моей сборке (fpc 2.1.4) выдает число из интервала (-0.5,0.5), а не (0,1)
Это баг или что?

[Attid]

Код: Выделить всё

Free Pascal Compiler version 2.1.4 [2007/08/26] for i386

Код: Выделить всё

var vTmp, vMin, vMax: Real;
    vNum: integer;
begin
  vMin := 0;
  vMax := 0;
  Randomize;
  for vNum := 0 to 1000000 do
  begin
    vTmp := Random;
    if vMax < vTmp then vMax := vTmp
    else if vMin > vTmp then vMin := vTmp;
  end;
  ShowMessage('Max = ' + FloatToStr(vMax)+' Min = '+FloatToStr(vMin));
end;

ответ

Max = 0,9999** Min = 0

[Илья Аввакумов]

Значит, я просто везучий. Сегодня же перейду на 2.2.0