Текущий архив: 2016.04.24;
Скачать: CL | DM;
Вниз
Неверно работает RandomRange() Найти похожие ветки
← →
K-1000 © (2015-08-13 09:31) [0]
procedure TForm1.Button1Click(Sender: TObject);
var
i: LongInt;
begin
Randomize();
for i:= 0 to 1000 do
Memo1.Lines.Add(IntToStr(RandomRange(0, 1)));
end;
Выводит одни нули, а должен 0 и единицы.
← →
Pavia © (2015-08-13 09:42) [1]Всё верно. Смотри документацию.
http://docwiki.embarcadero.com/Libraries/XE8/en/System.Math.RandomRange
ATo (non-inclusive)
Т.е. не включительно.
← →
K-1000 © (2015-08-13 11:42) [2]
> Pavia © (13.08.15 09:42) [1]
В справке Delphi 7 написано:
RandomRange returns a random integer from the range that extends between AFrom and ATo (inclusive).
← →
K-1000 © (2015-08-13 11:46) [3]Ошибка? В справке?
← →
Германн © (2015-08-13 13:01) [4]
> Ошибка? В справке?
Ошибка. Уже исправили http://docwiki.embarcadero.com/Libraries/XE7/en/System.Math.RandomRange
← →
K-1000 © (2015-08-13 17:12) [5]Логично было бы сделать ATo - inclusive.
Чтобы не добавлять постоянно единицу.
← →
Германн © (2015-08-13 19:03) [6]
> Логично было бы сделать ATo - inclusive.
Не логично. Результат классической функции Random ведь исторически не включает верхнюю границу.
← →
K-1000 © (2015-08-13 19:34) [7]Ясно.
← →
brother © (2015-08-13 20:44) [8]> Результат классической функции Random ведь исторически не
> включает верхнюю границу.
что путает всех новичков...
← →
Германн © (2015-08-14 00:30) [9]
> brother © (13.08.15 20:44) [8]
>
> > Результат классической функции Random ведь исторически
> не
> > включает верхнюю границу.
>
> что путает всех новичков...
А что их не путает? :)
Страницы: 1 вся ветка
Текущий архив: 2016.04.24;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.006 c
