[FreeUser]

У меня 2 вопроса

1) надо получить случайное число. Использую для этих целей random, но числа все какие-то не уникальные. Бывает сразу 3 цифры подряд одинаковые. Как получить 1!!!!! Число от 0 10 с большей вероятностью не совпадения спредыдущим?

2) Необходимо рандомо получать число - 1 число - НЕ МАССИВ, а одно! например в пределах от 10 до 17.

Заранее всем благодарен.

P.s. Я тут вечно прошу все на коде объяснять т.к. я еще новичек.

[Genry]

Да и вправду Random как-то тупит...
Можно сделать так:

Код:

var
i: integer;
begin
I:= Random(301);
I:=I div 100;

Ну это если надо от 1 до 3, то так...

[Drozh]

Ответ на 1:
При создании формы проинициализируй гененратор функцией

Код:

Randomize

Почитай здесь:
Ссылка

Ответ на 2:
Число из интервала от А до B (включительно) получить можно так:

Код:

Random(B - A +1) + A

[}{ОТТ@БЫЧ]

===Сообщение удалено===
P.S. Повторил, нечайно..... а удалить не смог =( модерам прошу удалить

[}{ОТТ@БЫЧ]

На первый:

Код:

begin
Randomize; //Датчик генерции для большей уверенности
repeat //Цикл
i:=random(10);
 until i<>k; //Если полученное число не равно прошлому
k:=i;
Edit1.Text:=IntToStr(i);
end;

На второй:
Если я правильно тебя понял, то просто замени Random RandomRange(10, 17)
P.S. Переменные лучше указывай вне процедуре, функции.

[AlexSku]

Кто сказал, что если числа от 0 до 10, то не может быть 3 одинаковых чисел подряд? Если брать Random без параметров, то получаемое число дробное и повторения не должно быть, а одинаковые целые числа - это результат округления разных дробных чисел (на самом деле обычно псевдослучайное число - это остаток от деления, т.е. всё-таки целые числа, но не будем углубляться в дебри). Вывод можно делать, если получить, например, 100 чисел и построить гистограмму.

[FreeUser]

Как всегда ОГРОМНОЕ СПАСИБО! Очень помогли!

[FreeUser]

[Добавлено позже] И как всегда у меня что-то да не работает.

Код:

 
var DopFilenameDay:integer;
...
randomize;
...
DopFilenameDay:=RandomRange(10, 17);

Выдает
[Error] Mega.pas(711): Undeclared identifier: 'RandomRange'

Помогите пожалуйста исправить.

[The Shadow]

uses Math;

[FreeUser]

The Shadow - Респект!