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;