. , , ,

,,,

- — ,

,

 

 

                           -

 

 

 

                                     :

-11

                                                       

 

                                                            : 

,

                                                                                ... ..

 

 

 

2007

 

:

 

1)           ( - ) 2

 

2)           ... 3

 

3)           - ………….. 5

 

4)           () …………………… 7

 

5)           …………………  10

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 


-

2:

 

, :

« Z(W)». W [-K;K], W 2. K , . K , : « !!! K . K». K. K   , Z :

 

Z 5 5 . W . «?» «» «yes» - K ,  – « !!!» .

 


:

1

rgr

2

3

k,w,z,i,s.

4

5

6

7

8

<=0 , . >0

9

W

10

W 0, Z :

W 0, Z :

Z=34,2 

11

.

12

W 

12

.

13

Z c 5 5

14

.

15

16

s

17

s «» «yes», 7, 18

18

« !!!»

19

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

- :

 


 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 



:

I :

 

program rgr;

uses crt;

var k,i,w:integer;z:real;s:string;

begin

clrscr;

repeat

writeln(‘ :  ’);

repeat

readln(k);

if odd(k)or(k<=0) then writeln(' !!!     : ');

until not odd(k) and(k>0);

for i:=-k div 2 to k div 2 do begin

w:=2*i;

if(w<0) then z:=(12-w*w*w)/exp(ln(0.5*w+12.3)/5)

else if(w=0) then z:=34.2

else z:=2*exp(ln(w)*2/3)/(0.23*w);

textcolor (yellow);

write(w);

write('  ');

textcolor (red);

writeln(z:5:5);

end;

textcolor (white);

write('?');

readln(s);

until(s<>'')and(s<>'yes');

writeln(' !!!');

readkey

end.
II :

 

: -(«Znash»), W   Z ,   .

 

program rgr;

uses crt;

var k,w:integer;f,z:real;s:string;

function Znash(z:real): real;

var i: integer;

begin

for i:=-k div 2 to k div 2 do begin

w:=2*i;

if (w<0) then z:=(12-w*w*w)/exp(ln(0.5*w+12.3)/5)

else if(w=0) then z:=34.2

else z:=2*exp(ln(w)*2/3)/(0.23*w);

textcolor (yellow);

write(w);

write('  ');

textcolor (red);

writeln(z:5:5);

end;

end;

 begin

clrscr;

repeat

writeln(‘ :  ‘);

repeat

readln(k);

if odd(k)or(k<=0) then writeln  (' !!!             . : ');

until not odd(k) and(k>0);

f:=Znash(z);

textcolor (white);

write('?');

readln(s);

until(s<>'')and(s<>'yes');

writeln(' !!!');

readkey

end.
III :

 

: -(«Znash»), W, Z (W,Z) .

 

program rgr;

uses crt;

var k,w:integer;z:real;s:string;

procedure Znash(k,w:integer;z:real);

var i: integer;

begin

for i:=-k div 2 to k div 2 do begin

w:=2*i;

if (w<0) then z:=(12-w*w*w)/exp(ln(0.5*w+12.3)/5)

else if(w=0) then z:=34.2

else z:=2*exp(ln(w)*2/3)/(0.23*w);

textcolor (yellow);

write(w);

write('  ');

textcolor (red);

writeln(z:5:5);

end;

end;

begin

clrscr;

repeat

writeln(‘ :  ’);

repeat

readln(k);

if odd(k)or(k<=0) then writeln(' !!! . : ');

until not odd(k) and(k>0);

Znash(k,w,z);

textcolor (white);

write('?');

readln(s);

until(s<>'')and(s<>'yes');

writeln(' !!!');

readkey

end.
:

 

3

!!! .

-2

!!! .

2

     

  -2 12.31443

   0 34.20000

   2 6.90174

 

?

yes

 

4

      

  -4 47.67011

  -2 12.31443

   0 34.20000

   2 6.90174

   4 5.47792

?

 

!!!

, -

 

 

 

! , , , .
. , :

: