
11.03.2014, 16:22
|
Прохожий
|
|
Регистрация: 11.03.2014
Сообщения: 1
Версия Delphi: Delphi 7
Репутация: 10
|
|
Разработать визуальное приложение , в котором работают параллельно два потока.
Код:
unit Unit1;
{$mode objfpc}{$H+}
interface
uses windows,
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
function ThreadFunc(Parameter: Pointer): Integer;
var
y,x: double;
begin
x:=random;
y:=(2*cos(x-pi/6))/(0.5+sqr(sin(x)));
Form1.Memo1.Lines.Append(format('%5.2f - %5.2f',[x,y]));
end;
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var
tid: DWORD; i:integer;
begin
for i:=0 to 10 do
BeginThread(nil, 0, @ThreadFunc, nil, 0, tid);
end;
end.
Последний раз редактировалось M.A.D.M.A.N., 28.03.2014 в 18:20.
|