randomize;

← →
Officeman (2006-02-13 07:44) [0]

1) подскажите как создать РАНДОМ [1..3]

как там поётся в песне, так?
var r:integer; randomize; r:=random(4);

как исключить выпдение НОЛЯ
продовал так:

if r=0 then r:=3;

но это нарушает концепцию РАНДОМА.

1)Подскажите как создать РАНДОМ [1..3] !!!!!
2)Выпадение подряд одного и тогоже числа возможно не более 4 раз.

С уважением, Officeman

← →
PZ (2006-02-13 08:21) [1]

Random(3)+1

← →
TUser © (2006-02-13 08:38) [2]

> 1)Подскажите как создать РАНДОМ [1..3] !!!!!

Random(2)+1

> 2)Выпадение подряд одного и тогоже числа возможно не более 4 раз.

Проверять, сколько раз уже выпало.
var count: integer;
last, r: integer;
begin
randimize;
Count:=0;
last:=MaxInt;
for .... do begin
r:=Random(2)+1;
if r = last then inc (cuont) else count:=0;
if count = 5 then begin
while r = last do r:=random(2)+1;
count:=0;
end;
last:=r;

// do anything

end;
end;

← →
Offceman (2006-02-13 09:05) [3]

to TUser, результат таков:

1
1
2
1
2
1
1
1
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
2
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
2
2
2
2
2
2
2
1
2
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1

проверка на 4 подряд не работает.

← →
_RusLAN © (2006-02-13 10:15) [4]

Создай массив из чисел которые могут выпадать
и рандомом выбирай индекс масива
если какое-то число выпало подряд четыре раза, изымай его из массива

← →
Marser © (2006-02-13 10:20) [5]

Randomize надо чаще делать.

← →
evvcom © (2006-02-13 10:26) [6]

Красное, черное и зеро? :) У них вероятности другие, рулетка, блин... :)

← →
Anatoly Podgoretsky © (2006-02-13 14:26) [7]

Marser © (13.02.06 10:20) [5]
Развеселил

Officeman (13.02.06 07:44)
RandomRange

← →
Officeman (2006-02-14 08:41) [9]

to evvcom © [6]
в принципе к этому и стремлюсь.
написана соотвествующая программа.
вручную забивать 1000 клеток обломно.
нужен нормальный генератор случайных чисел(гсч).

to Marser © (13.02.06 10:20) [5]
втоих словах правда есть. только не рандомайз чаще делать нужно
а интервал времени между гсч событиями.

например при такой коде:
procedure TForm1.Timer1Timer(Sender: TObject); begin randomize; rand:=RandomRange(1,4); Memo1.lines.add(inttostr(rand)); timer1.Interval:=RandomRange(150,300); end;

получается чтото более похожее на правду.
если итервал timer1 сделать например 100 или 50.
тогда поулчится нечто похожее на "текст ответа [3]".

← →
Officeman (2006-02-14 08:41) [10]

to evvcom © [6]
в принципе к этому и стремлюсь.
написана соотвествующая программа.
вручную забивать 1000 клеток обломно.
нужен нормальный генератор случайных чисел(гсч).
Буду признателен за помощь:
mailto:zeram@hotmail.ru

to Marser © (13.02.06 10:20) [5]
втоих словах правда есть. только не рандомайз чаще делать нужно
а интервал времени между гсч событиями.

например при такой коде:
procedure TForm1.Timer1Timer(Sender: TObject); begin randomize; rand:=RandomRange(1,4); Memo1.lines.add(inttostr(rand)); timer1.Interval:=RandomRange(150,300); end;

получается чтото более похожее на правду.
если итервал timer1 сделать например 100 или 50.
тогда поулчится нечто похожее на "текст ответа [3]".

randomize; Найти похожие ветки