1.
, , . R . ( 6, 15 ).
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. |
2.
, , , . . ( 6, 15 ).
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. |
:
v , if and, or, xor not. .
v - if , begin end.
v .
v , case, , , .
v case else.
v case if , , , , . , .
1.
, , [-3, 3]:
. : x, [-3, 3], y. real.
, . , , . ( ):
|
|
:
1. x.
2. , .
3. , .
4. , , y .
5. y.
:
o x [-3; -2), .
o x [-2; 0), .
o x [0; 1), .
o x [1; 3], .
. 1.
-
:
{***************************************************}
{: FUNC. }
{: . }
{: .. }
{ : 10 2006 . }
{***************************************************}
Program FUNC;
Var X, Y: real;
Begin
Writeln( );
Read(X);
Wriyeln(X=, X);
If (x<-3) or (x>3) then begin
Writeln( [-3; 3]);
exit
end;
If x<-2 then y:=-2*x-5;
If (x>=-2) and (x<0) then y:=-sqrt(1-sqr(x+1))-1;
If (x>=0) and (x<1) then y:=x-1;
If x>=1 then y:=sqrt(1-sqr(x-2));
Writeln( x= , x:6:2, y= , y:6:2)
End. {FUNC}
, . , , .. a<x<b. , , .. . (a<x x<b), . , , (and), .. (a<x) and (x<b). , , . x and x2, .
, , [-3; 3], . exit , . , , , .
, , , y . , :
|
|
If x<-2 then y:=-2*x-5
else if x<0 then y:=-sqrt(1-sqr(x+1))-1
else if x<1 then y:=x-1
else y:=sqrt(1-sqr(x-2));
-:
. 2. .
, x . , , , , . , . ? , , , . , .
, , . , .
2.