Форум: "Начинающим";
Текущий архив: 2006.03.05;
Скачать: [xml.tar.bz2];
Вниз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]
Развеселил
← →
Anatoly Podgoretsky © (2006-02-13 14:27) [8]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]".
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.03.05;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.01 c