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
|
|
, , 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.