.


:




:

































 

 

 

 


 

 

 

 

2 110721

 

 

..

 

2008


. 3

.. 5

1. .. 6

2. .. 9

3. .. 12

4. .. 20

. 23

.. 24

. 25


, , , , . , , - , , [2].

- , , . , .

, :

- ;

- ;

- , ;

- , .

.

- . . .

- , . :

- , ;

- /, .

- , . :

- , ;

- /, .

, , .

- , . :

- , ;

- .

, , , [5].


, , .


, , , 1936 . (.. , ) , . , , , . , . [1].

, , , V, , , , , , , . , . (-) . ( 1.1).

1.1 -

 

:

Km, - , K -, , - , .

, 1.2.

 

1.2 -

 

, , , , , , , () [3].

, 1) - n; 2) - .

, , :

1) ; ();

2) ; ;

3) ; () [3].

k k + 1 ( λ). .

.

: , . , 1.3 ( ) [1]:

1.3 -


. . , . , , , , , , ( ).

, ( , , ). , , : , , .

, Nx3, . , .

, . ( ) . .

A B , A, B A ( 2.1). : , ( ) [4].

2.1 - 2 4

 

:

1) ;

2) 1 1) 3);

3) ;

4) 0;

5) ;

6) 1 5) 7);

7) 1;

8) ;

9) 1 10) 1);

10) ;

11) 1 10) 12);

12) 0;

13) .

.

, :

1 ;

2 ;

3 ;

4 ;

5 ;

6 .


Matrix array[1..N, 1..M] of Integer M*N, N=100 M=3. , , , , 5.

Lenta String. Pos , I , L , X Y , . TF Text, . Flag Boolean . Driver, Mode Integer .

Crt, Graph. Crt GotoXY, ClrScr, Delay. Graph , .

Jump ReadFile.

Jump, ( 3.1). I1, L1, Lenta1 , . A, B , A B B. , Jump I1. , I 1, , . , , , . : 1 I A, B.

3.1 - - Jump

 

ReadFile ( 3.2) . .

TF Prog.txt ( , , ) Reset(TF) Lenta, Pos, while not EOF(TF) do. Matrix 5, . .

3.2 - - ReadFile

Lenta[Pos]:=1
Lenta[Pos]:=0

, , 3.3.

ReadFile, , Flag , . Driver:=Detect , InitGraph(Driver, Mode, '').

repeat until, , Flag. learevice SetColor(White) .

for I:=1 to 60 do Rectangle((I-1)*10,190, I*10, 210), , OutTextXY((I-1)*10+2,200, Lenta[I]). Lenta , OutTextXY((I-1)*10+2, 200, '0').

Rectangle((Poz-1)*10, 213, (Poz*10), 214), , SetColor(Red).

, 6 :

1: , Inc(Pos) OutTextXY(170, 170, ' ');

2: , , Dec(Pos) OutTextXY(170, 170, ' ');

3: , , , Lenta[Pos]:='1' OutTextXY(170, 170, ' 1'). , 1, ;

4: , , , Lenta[Pos]:='0' OutTextXY(170, 170, ' 0'). , 0, ;

5: , Jump(J, Pos, Lenta), , OutTextXY(170, 170, '');

6: , Flag:=True, OutTextXY(170, 170, '').

Delay(50000), . SetColor(Black) Rectangle((Poz-1)*10, 213, (Poz*10), 214) Inc(J).

ReadKey, CloseGraph.


( 4.1)

4.1

 

4.2 . , , . , (4 2)

4.2 -

 

4.3 . 6.

4.3 -

 

. ( 4.4)

4.4 - 6

 

( 4.5)

4.5 -


.

, , , , . Jump ReadKey, .

, .

, , . , Delphi.




<== | ==>
, , |
:


: 2016-09-06; !; : 4636 |


:

:

,
==> ...

965 - | 877 -


© 2015-2024 lektsii.org - -

: 0.054 .