Реферат - Потоки / lab4thread2 / synchron / main

unit main;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,thrdu, TeEngine, Series, ExtCtrls, TeeProcs, Chart,
Grids, Menus;

type
TMainForm = class(TForm)
Edit1: TEdit;
Button2: TButton;
ListBox1: TListBox;
Edit2: TEdit;
Label2: TLabel;
Edit3: TEdit;
Label3: TLabel;
Edit4: TEdit;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
StringGrid1: TStringGrid;
Chart1: TChart;
Series1: TAreaSeries;
Label1: TLabel;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Label4: TLabel;
Ans1: TMenuItem;
procedure Button2Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure Ans1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
MainForm: TMainForm;
f:text;
st1,st2:string;
i:integer;
a,w,b,n,m,x,y,y1,hx,sx,sy,q1,qn,sy1,p1,p2,st:real;

implementation

{$R *.dfm}

procedure TMainForm.Ans1Click(Sender: TObject);
var
thread2,thread1:testthrd;
begin
thread1:=testthrd.Create(false);
//thread2:=testthrd.Create(false);
end;


procedure TMainForm.N2Click(Sender: TObject);
var i,n:integer;
begin
a:=StrToFloat(Edit3.Text);
b:=StrToFloat(Edit4.Text);
n:=StrToInt(Edit5.Text);
hx:=(b-a)/n;
StringGrid1.RowCount:=2;
StringGrid1.ColCount:=3;
StringGrid1.Cells[0,0]:='№';
StringGrid1.Cells[1,0]:='X';
StringGrid1.Cells[2,0]:='Y';
i:=0;x:=a;sx:=0;sy:=0;sy1:=0;
for i:=1 to n+1 do begin
if i=1 then begin q1:=sqr(x); end else
begin if i=n+1 then begin qn:=sqr(x);end;end;
y:=sqr(x);
StringGrid1.Cells[0,i]:=IntToStr(i);
StringGrid1.Cells[1,i]:=FloatToStr(x);
StringGrid1.Cells[2,i]:=FloatToStr(y);
StringGrid1.RowCount:= StringGrid1.RowCount+1;
Series1.AddXY(x,y,FloatToStr(x),clRed);
sy:=sy+y;
sx:=sx+x; x:=x+hx;
Edit6.Text:=FloatToStr(sx);
Edit7.Text:=FloatToStr(sy);
sy1:=sy-q1-qn;
w:=((hx/2)*(q1+2*sy1+qn));
Edit6.Text:=FloatToStr(w);
end;
end;

procedure TMainForm.Button2Click(Sender: TObject);
var i,n:integer;
a:array [1..10] of string;
begin
for i:=1 to 10 do
begin
a[i]:=(StringGrid1.Cells[2,i]);
listbox1.Items.Add(a[i]);
end;
end;


end.