unit Unit1;



interface



uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;



type

TForm1 = class(TForm)

Button1: TButton;

LabeledEdit1: TLabeledEdit;

LabeledEdit2: TLabeledEdit;

Timer1: TTimer;

Memo1: TMemo;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Memo2: TMemo;

Memo3: TMemo;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

type

MultiThread = class(TThread)

private

wordsStart : Pointer;

protected

procedure Execute; override;

public

constructor Create(Status: boolean);

Destructor Destroy; override;

end;

type

MultiThread2 = class(TThread)

private

wordsStart : Pointer;

protected

procedure Execute; override;

public

constructor Create(Status: boolean);

Destructor Destroy; override;

end;

type

MultiThread3 = class(TThread)

private

wordsStart : Pointer;

protected

procedure Execute; override;

public

constructor Create(Status: boolean);

Destructor Destroy; override;

end;



var

Form1: TForm1;

i:integer;

A:array[1..100] of integer;

N:integer;

implementation



{$R *.dfm}



{ MultiThread }



constructor MultiThread.Create(Status: boolean);

begin

inherited Create(Status);

end;



destructor MultiThread.Destroy;

begin

// Освобождение памяти, если она получена

if wordsStart <> nil

then FreeMem(wordsStart);

inherited;

end;



procedure MultiThread.Execute;

var t:integer;

begin

inherited;

for i:=1 to N do

A[i]:=random(1999)-1000;

Form1.Memo1.Text:=string(Form1.LabeledEdit2.text)+' случайных значений
записанных в A:';

for i:=1 to N do

Form1.Memo1.Lines.Add(inttostr(A[i]));



end;



procedure TForm1.Button1Click(Sender: TObject);

begin



Timer1.Enabled:=true;

end;



procedure TForm1.Timer1Timer(Sender: TObject);

var

iStart, iStop: DWORD;

dwMilliseconds: integer;

begin

N:=strtoint(Form1.LabeledEdit2.text);

Timer1.Interval:=strtoint(LabeledEdit1.Text);

Timer1.Enabled:=false;

MultiThread.Create(false);

MultiThread2.Create(false);

dwMilliseconds:= 100; // милисекунды

iStart := GetTickCount;

repeat

iStop := GetTickCount;

Application.ProcessMessages;

until (iStop - iStart) >= dwMilliseconds;



MultiThread3.Create(false);

Timer1.Enabled:=true;

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

Timer1.Enabled:=false;

end;



{ MultiThread2 }



constructor MultiThread2.Create(Status: boolean);

begin

inherited Create(Status);

end;



destructor MultiThread2.Destroy;

begin

// Освобождение памяти, если она получена

if wordsStart <> nil

then FreeMem(wordsStart);

inherited;

end;



procedure MultiThread2.Execute;

var min, max:integer;

begin

inherited;

min:=A[1];

max:=A[1];

for i:=2 to N do

begin

if min>a[i] then min:=a[i];

if max<a[i] then max:=a[i];

end;

Form1.Memo2.Text:='Вычисление минимального и максимального значений';

Form1.Memo2.Lines.Add('min: '+inttostr(min));

Form1.Memo2.Lines.Add('max: '+inttostr(max));

end;



{ MultiThread3 }



constructor MultiThread3.Create(Status: boolean);

begin

inherited Create(Status);

end;



destructor MultiThread3.Destroy;

begin

// Освобождение памяти, если она получена

if wordsStart <> nil

then FreeMem(wordsStart);

inherited;

end;



procedure MultiThread3.Execute;

var sum,count:integer;

itog:real;

begin

inherited;

Form1.Memo3.Text:='Вычисление отклонений каждого значения от среднего
арифметического';

sum:=0;

count:=0;

for i:=1 to N do

begin

inc(sum,a[i]);

Inc(count);

end;

for i:=1 to N do

begin

//itog:=abs(Abs(A[i])- Abs(sum/count));

itog:=((A[i])- (sum/count));

Form1.Memo3.Lines.Add(floattostr(itog));

end;

end;



end.