1
: .
: . , . , , , . , .
| 1. | 
| 
| 
|
| 2. | 
| 
| 
|
| 3. | 
| 
| 
|
| 4. | 
| 
| 
|
| 5. | 
| 
| 
|
| 6. | 
| 
| 
|
| 7. | 
| 
| 
|
| 8. | 
| 
| 
|
| 9. | 
| 
| 
|
| 10. | 
| 
| 
|
| 11. | 
| 
| 
|
| 12. | 
| 
| 
|
| 13. | 
| 
| 
|
| 14. | 
| 
| 
|
| 15. | 
| 
| 
|
| 16. | 
| 
| 
|
| 17. | 
| 
| 
|
| 18. | 
| 
| 
|
| 19. | 
| 
| 
|
| 20. | 
| 
|
|
| 21. | 
| 
| 
|
| 22. | 
| 
| 
|
| 23. | 
| 
| 
|
| 24. | 
| 
| 
|
| 25. | 
| 
| 
|
| 26. | 
| 
| 
|
| 27. | 
| 
| 
|
| 28. | 
| 
| 
|
| 29. | 
| 
| 
|
| 30. | 
| 
| 
|
| 31. | 
| 
| 
|
2
: , .
: ( ). , , , . , .
| . | |||
| 1. | 
(k) y < 0,
| 
| 
|
| 2. | 
(k) z < 0,5
| 
| 
|
| 3. | 
(k) t < 0
| 
| 
|
| 4. | 
| 
| 
|
| 5. | 
(k) z,
| 
| 
|
| 6. | 
(k) 
| 
| 
|
| 7. | 
(k)  ,
| 
| 
|
| 8. | 
(k) 
| 
| 
|
| 9. | 
(k) 
| 
| 
|
| 10. | 
(k) 
| 
| 
|
| 11. | 
(k) 
| 
| 
|
| 12. | 
(k) 
| 
| 
|
| 13. | 
(k) 
| 
| 
|
| 14. | 
(k) 
| 
| 
|
| 15. | 
(k) 
| 
| 
|
| 16. | 
(k) 
| 
| 
|
| 17. | 
(k) 
| 
| 
|
| 18. | 
(k) 
| 
| 
|
| 19. | 
(k) 
| 
| 
|
|
|
|
| 20. | 
(k) 
| 
| 
|
| 21. | 
| 
| 
|
| 22. | 
| 
| 
|
| 23. | 
(k) 
| 
|
|
| 24. | 
(k) 
| 
| 
|
| 25. | 
(k) 
| 
| 
|
| 26. | 
(k) 
| 
| 
|
| 27. | 
(k) 
| 
| 
|
| 28. | 
| 
| 
|
| 29. | 
 ;
N - Z
| 
| 
|
| 30. | 
| 
| 
|
| . |
(k) 
| 
| 
|
a, b, X, X, ΔX =X. S. , , 1. , . .
Y . , . , . , , 0. , , . , Y. Y .
, . Y (
), Y; Y (
), Y.
, , , . , , .
, S. , , S, .
- .2.
-
| + |
| a, b, X, X, ΔX |
|
| K=0 P=1 S=0 |
| i= 1, N |
|
| X |
|
|
| + |
| + |
|
| Y |
|
|
|
|
|
| K, P, S |
| + |
| Y |
| Y |
2 -
|
|
|
procedure TForm1.Button1Click(Sender: TObject);
Var
a,b,Xn,Xk,dX,X,z,Y,P,S:real;
k,i,N,cod:integer;
Label M1;
begin
Val(Edit1.Text,a,cod);
if cod<>0 then
begin
ShowMessage(' a');
GoTo M1;
end;
Val(Edit2.Text,b,cod);
if cod<>0 then
begin
ShowMessage(' b');
GoTo M1;
end;
Val(Edit3.Text,Xn,cod);
if cod<>0 then
begin
ShowMessage(' ');
GoTo M1;
end;
Val(Edit4.Text,Xk,cod);
if cod<>0 then
begin
ShowMessage(' Xk');
GoTo M1;
end;
Val(Edit5.Text,dX,cod);
if cod<>0 then
begin
ShowMessage(' dX');
GoTo M1;
end;
N:=trunc((Xk-Xn)/dX)+1;
k:=0;
P:=1;
S:=0;
StringGrid1.Cells[0,0]:='X';
StringGrid1.Cells[1,0]:='Y';
For i:=1 to N do
begin
X:=Xn+(i-1)*dX;
StringGrid1.Cells[0,i]:=FormatFloat('#0.###',X);
if sqr(a)-x>0 then z:=exp(1/3*ln(sqr(a)-x)) else
if sqr(a)-x<0 then z:=-exp(1/3*ln(abs(sqr(a)-x)))
else z:=0;
if (a+b-z>0) and (a+x>=0) then
if x+sqrt(a+x)<>0 then
begin
y:=ln(a+b-z)/(x+sqrt(a+x));
StringGrid1.Cells[1,i]:=FormatFloat('#0.###',Y);
if Y<=0 then
begin
k:=k+1;
if y<0 then P:=P*y;
end
else S:=S+y;
end
else StringGrid1.Cells[1,i]:=' Y no'
else StringGrid1.Cells[1,i]:=' Y no';
end;
Edit6.Text:=IntToStr(K);
Edit7.Text:=FormatFloat('#0.###',P);
Edit8.Text:=FormatFloat('#0.###',S);
M1: end;
