- , , . , , , .
. , , , , .
()- , , . ,
6) :
. < >(, )
< .>
< .>
. < >( ( ))
.
:
. (. . R, H, . . V, S)
. . (. . a, b, c, . . x1, x2)
. max (. . N, . A[1:n], . . k)
(N>0)
(k- max A)
T
7)
1) , . 2) -
).
) . , , .
3) (, )
4) (, )
8)
.()
.()
.()
.()
.()
.()
.()
.()
.()
. ()
. ()
..( )
..( )
.()
.()
9) :
1)
2) (, Pascal) (Basic).
3) .
4) .
10.)
1) ,
2) , .
3) => .
4) . .
5) .
6) .
|
|
11) , . , .
, .
, , , , , , , :
/ , ;
( ). ( .)
, , .
12) :
I. .
1).
2). - ()
II. .
1). () (Basic, pascal .)
. .
2). (Prologs, lisp .)
, , , .
3). - (Objeck, Pascal .) , . - . , .
13) .
.
()
1). () , . - .
2) () (). .
3). () .
14) () , . - .
15) (). .
:
(true)
|
|
(false)
:
y = a+b, x<0
c/b, x>0
16) , , . . , , , ( , ). , , . , , (, ), .
17) , .
:
while do
.
eps:=0.001;while x > eps do x:=x/2;
:
repeat ; ;... until.
repeat WriteLn(' '); ReadLn(x);until x>0;
. . , . , . , , .