многопоточная организация в Делфи

← →
Анна (2010-10-24 15:15) [0]

Помогите, пожалуйста:
Взаимн.исключ.
5. Первый поток генерирует случайные числа Rv, распределенные по равномерному закону в диапазоне от 0 до 1 и помещает их в буфер (компонент TList). Второй поток вычисляет числа, распределенные по экспоненциальному закону по формуле: x:=-1/lambda*ln(1-Rv). Вывести математическое ожидание и дисперсию для каждого потока случайных величин.
я писала:
unit Unit1;

interface

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

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

Tnew = class(TThread)
private
word: integer;
procedure fill;
protected
// procedure execute; override;
end;

var
Form1: TForm1;
new1, new2: tnew;

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
randomize
new1 := tnew.create(true);
new1.freeonterminate := true;
new1.word:=random(10);
new1.priority := tphighest;
//new1.priority := tplowest;

new2 := tnew.create(true);
new2.freeonterminate := true;
new2.word:=1/5*(1-new1.word);
new2.priority := tplowest;
new2.priority := tphighest;

new1.resume;
new2.resume;
end;

{ tnew }

procedure tnew.fill;
begin
//Form1.Memo1.Lines.Add(word);
//sleep(1000);
...
...
Не могу понять, как это сделать много вариантов перепробывала не получается=((((
Помогите

← →
Сергей М. © (2010-10-24 16:17) [1]

> как это сделать много вариантов

Каких таких "вариантов" ? Зачем их "делать", да еще и "иного" ?
Ты откуда вообще этот дефективный код содрала ?)

← →
Игорь Шевченко © (2010-10-24 16:50) [2]

> 5. Первый поток генерирует случайные числа Rv

а где
1.
2.
3.
4.

?

> Анна (24.10.10 15:15)

> x:=-1/lambda*ln(1-Rv). Вывести математическое ожидание и
> дисперсию для каждого потока случайных величин.

Равномерное: M[x] = 1/2; D[x] = 1/12
Экспоненциальное: M[x] = 1/lambda; D[x] = 2/lambda^2

--
Regards, LVT.

многопоточная организация в Делфи Найти похожие ветки