Помогите создать генератор чисел!!

[Xander]

Добрый день мне надо создать генератор чисел по экспоненциальной зависимости! у кого есть какие нибудь идеи по воплощению этой затеи?? Заранее благодарен!!

[grenles]

И как это будет выглядеть???

function MyRandomExp(NumRand:real):real;
begin
MyRandomExp := random (100 * exp (NumRand));
end;
....
var
NumRand : real;

NumRand := MyRandomExp(NumRand);
NumRand := MyRandomExp(NumRand);
NumRand := MyRandomExp(NumRand);
...

как-то так??? То есть случайное число с памятью что ли?

(или я ошибаюсь?)

[grenles]

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

[Xander]

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

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

Ну а если сделать каким нить образом чтобы это предел можно было указывать?

[grenles]

unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.dfm}
var
NumRand : Real;

function MyRandomExp(NumRand:real):real;
var
tmp : real;
begin
tmp := exp (random (3));
MyRandomExp := tmp + NumRand;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
NumRand := MyRandomExp(NumRand);
Memo1.Lines.Add(FloatToStr(NumRand) );
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
NumRand := 1;
Randomize;
end;

end.
============================
Возможно это может быть решено так?

[grenles]

вот файлы - наборосанные за 10 минут

[Xander]

ну дда так)) а как можно сделать чтобы он при вводе какого либо числа допустим в edit1 выводил такое же количество случайных чисел в memo1??
И чтобы можно было указывать диапазон в edit2 (от нуля допустим) и в edit3 ( до 40)!!Заранее спасибо!!