Генератор случайных чисел

← →
EvgeniyR © (2003-05-30 10:24) [0]

Здравствуйте, использую random, получаю одну и ту же последовательность. Видел раньше в форуме, но не могу найти.
Подскажите пожалуйста, как реализовать?
Заранее спасибо.

← →
Intell © (2003-05-30 10:35) [1]

Попробуй на Креат формы повесить: Randomize

← →
Внук © (2003-05-30 10:35) [2]

- Вась, нужен генератор случайных чисел.
- Четырнадцать.
:)

Randomize, RandSeed

← →
Skier © (2003-05-30 10:36) [3]

>EvgeniyR © (30.05.03 10:24)
"Затравочка" от таймера не помешает...:) - Randomize

← →
Intell © (2003-05-30 10:40) [4]

По моему были уже были предложены все варианты - EvgeniyR, у тебя получилось?

← →
Anatoly Podgoretsky © (2003-05-30 11:03) [5]

EvgeniyR © (30.05.03 10:24)
Да не в форумах надо искать, а в справке, там все написано и есть пример.

← →
EvgeniyR © (2003-05-30 11:59) [6]

Randomize я использую, просто не написал, но толку ни какого.

← →
han_malign © (2003-05-30 12:02) [7]

АЦП на искру(ну или шумовой диод), больше ничего не "спасет отца русской демократии"...

← →
icWasya © (2003-05-30 12:13) [8]

Randomize нужно вызывать один раз

← →
EvgeniyR © (2003-05-30 13:33) [9]

Более подробно: надо внести случайный товар, со случайным кол-вом в накладную.

randomize; в FormCreate

for ... to ... do
begin
kol := random(StrToInt( A )) + 1;
tovar := random(StrToInt( B )) + 1;
...
end
A, B - берется из TEdit

Всегда получается одна и та же последовательность

← →
R4D][ (2003-05-30 13:36) [10]

Попробуй вызывать randomize в той же подпрограмме, в которой вызываешь random.

> EvgeniyR © (30.05.03 13:33)
> Более подробно: надо внести случайный товар, со случайным кол-вом в накладную.

Случайному клиенту за случайную цену...

у меня получаются разные последовательности
//Pas
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
EditA: TEdit;
EditB: TEdit;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;

end;

procedure TForm1.Button1Click(Sender: TObject);
var
i,kol,tovar:Integer;
A,B:String;
begin
Memo1.Lines.Add("====================");
A:= EditA.Text;
B:= EditB.Text;

for i:=1 to 10 do
begin
kol := random(StrToInt( A )) + 1;
tovar := random(StrToInt( B )) + 1;

Memo1.Lines.Add(Format("%5d %5d",[kol,tovar]));
end

end;

end.
//
DFM

object Form1: TForm1
Left = 235
Top = 153
Width = 696
Height = 480
Caption = "Form1"
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = "MS Sans Serif"
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Button1: TButton
Left = 56
Top = 56
Width = 97
Height = 41
Caption = "Button1"
TabOrder = 0
OnClick = Button1Click
end
object EditA: TEdit
Left = 248
Top = 48
Width = 121
Height = 21
TabOrder = 1
Text = "10"
end
object EditB: TEdit
Left = 248
Top = 80
Width = 121
Height = 21
TabOrder = 2
Text = "20"
end
object Memo1: TMemo
Left = 72
Top = 160
Width = 465
Height = 241
Lines.Strings = (
"Memo1")
TabOrder = 3
end
end

← →
DmS (2003-05-30 15:45) [13]

может у тебя в компе часы остановились ?

> DmS (30.05.03 15:45)
> может у тебя в компе часы остановились ?

Да у меня вообще компа нет

← →
ladybird (2003-06-04 15:11) [15]

>>Да у меня вообще компа нет
:)
Тогда поспи... в смысле - перезагрузись.

Генератор случайных чисел Найти похожие ветки