Random

[psih1]

Вот пишу примитивную гонку подобную как vkontakte.ru
столкнулся с такой проблемой как сделать что рандом зависил от велечены переменной???

Program NewRacing;
var
i,q,u:integer;
begin 
    if random(2) = 1 then   i:= 10; else q := 12; 
    if(i>q) then u:=1 else u:=2;
    DrawText('Выграл:'+u, 5, 5);
    Repaint;    
    Delay(5000);
End. 


[ViNT]

Сообщение от psih1

как сделать что рандом зависил от велечены переменной???

А конкретнее? Каким образом должен зависеть?
Имеется в виду аналог RandSeed?

[psih1]

ну чтоб шанс больше был у той переменной которая больше по значению I:=10<Q:=15

[Freez]

Взято из хелпа

Следующая функция возвращает случайное значение типа boolean; возможность того, что возвращаемое значение будет равно 'true' равна 75%:

function randomBoolean: boolean;
begin
if random(4) = 3 then
randomBoolean := false;
else
randomBoolean := true;
end;

[psih1]

Тогда можно немного коминтариев я ток начал работать с цыклами

[Freez]

Чесно говоря сам понятия не имею,не сталкивался с процедурой random

[cHeRsAnYa]

psih1, циклы тут (в функции

function randomBoolean: boolean;
begin
if random(4) = 3 then
randomBoolean := false;
else
randomBoolean := true;
end;

) не причём вообще, их тут нет.

[Dj_smart]

function randomBoolean(first,second:integer): boolean; 
begin 
  randomBoolean:=random(first+second) <first;
end;

[Rock2roll]

Рендом рулит. Мне кажется неплохо было бы иметь библиотеку для рендома. С множеством функций!

[odd]

Да, у рандома много возможностей. А в MP реализовали только 2.
К примеру, у меня была такая задача: дано 100 координат звезд расположенных в случайном порядке, нужно их выводить на экран и при этом каждую итерацию цикла сдвигать координату X на 1 пиксель. Так вот. В данном случае даже не нужно заводить массивы X и Y на 100 чисел каждый. Просто нужно перед каждым циклом вывода звезд инициализировать генератор чисел с помощью одного и того же числа. Жаль, что в MP такой функции нет. А в Java - пожалуйста.

[Rock2roll]

Так может всётаки стоит задуматься над либой. Если я умел бы то неприменно взялся бы))

[Igor]

Достать где-нибудь алгоритм и числа нетрудно. (вроде бы как а*б, и если надо, -с).
Можно даже модуль на самом паскале

[Rock2roll]

Умел бы я ещё модули делать...

[Igor]

Смотри здесь

[odd]

Уже написал библиотеку. Заходите в раздел библиотек. Смотрите Lib_rnd.