procedure TForm1.FormCreate(Sender: TObject);

procedure TForm1.FormCreate(Sender: TObject);

begin

StringGrid1.Cells[0,0]:='x';

StringGrid1.Cells[1,0]:='y';

end;

procedure TForm1.Button1Click(Sender: TObject);

var a, b, x, y, h: real;

s:string[20];

i,n:integer;

begin

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

n:=StrToInt(Edit3.Text);

if (a>=b)or(n<=0)then

begin

ShowMessage('ошибка в данных');

exit

end;

x:=a;

i:=1;

h:=(b-a)/n;

StringGrid1.RowCount:=n+2;

while x<=b+h/2 do

begin

y:=((Sin(Power(x,3)+pi/(6*x))+sqr(Tan(x))+power((2+(Power(x,3)/(4+x))),1/3)))/((LogN(4,2*x+6))+sqrt(3*power(x,x+3)));

Str(x:7:3,s);

StringGrid1.Cells[0,i]:=s;

Str(y:7:3,s);

StringGrid1.Cells[1,i]:=s;

x:=x+h;

i:=i+1;

end;

end;

end.

Часть 2

procedure TForm1.Button1Click(Sender: TObject);

var x,y,a,b,s,p,f,r,c,z,min,max:real;

i,j,m,n:integer;

begin

x:=StrToFloat(Edit1.Text);

m:=StrToInt(Edit3.Text);

n:=StrToInt(Edit4.Text);

s:=0;

for i:=1 to m do s:=s+(Power(x+i,1/3))/i;

a:=7*x+sqrt(Sqr(x)+arctan(16.78/s));

p:=1;

for j:=1 to n do p:=p*(1/(1+j));

f:=9*sqr(Cos(p+power(x,3)));

min:=1E30;

for i:=1 to n do

begin

r:=power(2,Cos(i+x));

if r<min then min:=r;

end;

max:=-1E30;

for j:=1 to m do

begin

z:=Power(2,Sin(j*x));

if z>max then max:=z;

end;

c:=Exp(-(Sqr(max)+sqr(min)));

y:=(f+c)/a-0.7;

Edit2.Text:=FloatToStr(y);

end;

end.

Дата добавления: 2015-09-29