1. 1.
1.1.
1.2.
1.3.
1.4.
2. 2.
2.1.
2.2.
2.3.
2.4.
3. 3. .
3.1.
3.2.
3.3.
3.4.
4. 4. .
4.1.
4.2.
4.3.
4.4.
5. 5.
5.1.
5.2.
5.3.
5.4.
1. 1.
1.1.
x, y, z.
a, b.
: x,y,z,a,b,l,m,i.
: a, b.
1.2.
( R1) .
R1
x,y,z,a,b,l,m,i: ; { }
a, b: ; { }
(x, y, u, v);
a b ;
.
1.3.
1.3.1.
1.3.2. Delphi
procedure TForm1.Button1Click(Sender: TObject);
var x,y,z,a,b,l,m,i:real;
begin
x:=StrToFloat(edit1.text); // x
y:=StrToFloat(edit2.Text); // y
z:=StrToFloat(edit3.Text); // z
l:=ABS(sqr(cos(x))+cos(y*y)); // l
m:=1+2*(exp(3*ln(sin(y)))); // m
a:=exp(m*ln(l)); // a
edit4.text:=FloatToStr(a); // a
i:=1+z+(exp(1/2*ln(z))/2)+(exp(1/3*ln(z))/3)+(exp(1/4*ln(z))/4); // i
b:=i*i; // b
edit5.text:=FloatToStr(b); // a
end;
1.4.
. , , . .
1) : x=1,y=1,z=1
: a= 0,66865, b= 9,50694
2) : x=2,y=2,z=2
: a= 0,15959,b= 19,57519
|
|
3) : x=1,y=2,z=3
: = 0,07839, b= 32,21463
1.5.
. .
2. 2.
a,b.
p,r,k.
: a,b.
: p,r,k.
2.2.
( R2) .
R2
a,b: ; { }
p,r,k: ; { }
(a,b);
: p:= 1.6*1.6*a*sin(3)+exp(1/4*ln(0.09*b))*cos(3);
r:= exp(2)*sin(3*arctan(exp(1/2*ln(3)))+b*arctan(sqrt(1-sqr(0.5))/0.5));
P*p+r*r<=1 k:= ln(ABS(p)+5*ABS(r));
p*p+r*r>2 k:=p-ABS(r) k:=ABS(p-r);
p,r,k ;
.
2.3.
2.3.1.
2.3.2. Delphi
procedure TForm1.Button1Click(Sender: TObject);
var a,b,p,r,k:real;
begin
a:=StrToFloat(edit1.text); //
b:=StrToFloat(edit2.Text);// b
p:=1.6*1.6*a*sin(3)+exp(1/4*ln(0.09*b))*cos(3); // p
r:=exp(2)*sin(3*arctan(exp(1/2*ln(3)))+b*arctan(sqrt(1-sqr(0.5))/0.5)); / p
If P*p+r*r<=1 then k:=ln(ABS(p)+5*ABS(r)); // k
if p*p+r*r>2 then k:=p-ABS(r) else k:=ABS(p-r); // k
edit3.Text:=FloatToStr(p); // a
edit4.Text:=FloatToStr(r); // a
Edit5.Text:=FloatToStr(k); // a
end;
2.4.
. , , . .
: a=1, b=1
: p= -0,18, r= -6,4, k= -6,58
: a=2, b=2
: p= 0,08, r= -6,4, k= -6,3
: a=5, b=5
: p= 1, r= 6,4, k= -5,4
: a=8, b=7
: p= 2, r= - 6,4, k= -4,4
2. 5.
.