: . 0.251
:
, 2006.
1.
Pascal, , . :
- ( , )
- , , ( )
- ( )
-
- ,
2.
2.1. ,
. , . , , . . , . , , . 1. , . : . ( ), . , For. . ( Y , - ).
2.2.
, "" MS-DOS, 51 ( , $33). . 36 , "" , . . , AX. "" . REGISTERS, DOS.
|
|
type Registers = record case Integer of 0: (AX, BX, CX, DX, BP, SI, DI, DS, ES, Flags: Word); 1: (AL, AH, BL, BH, CL, CH, DL, DH: Byte); end;
, , intr. :
1. ;
2. REGISTERS
. 0. , , , AX $FFFF. , 0, . BX. .
,
- ;
- . , , 1;
- " " , $10. ;
- " ". $0A;
- . 7;
- . , 8 . 0;
- "" . , . " " . ( , ). $1A. , . , , , 3 " " ( reg - REGISTERS). , reg.BX and 1 = 1, CX X () , DX Y () .
3.
3.1.
- | ||||||||
: . . . : , . ( , ). : . , , . , , .
|
|
3.2.
3.2.1. 1 36 , 36 . 1 36 n A[1..36]. Random Randomize. [n] .
3.2.2. 9. , . ( ). (p:=B[n]). 9 (m:=p div 9), 36, m ( 0 3). . 9, 0 8 (n:=p mod 9).
3.2.3. , , . , case, (Assign(F,*.txt)). , , , - .
3.2.4. (2-4) , . , , . : , . 1 2, . (case (mark1 mod (Numplayers-1)) of).
3.2.5. , , , . , (koz:=A[36]). , 9 , , . , , 9, . , , , , , . . , , , , , .
3.2.6. , , , . , , 9 , , . 9 9 , , . . , , , 9 , . 9 . 9 .
|
|
3.2.7. . , . Esc , , , , , , , , , , , , . . , .
3.2.8. , , , , ,
3.3.
3.3.1. , . . . Keypressed:Boolean true, . Readkey: char; ASCII . , , #0. (, , ..) -. - - ( ) ASCII- . - , Readkey.
key:=ReadKey;{ }
If c=#0 then key:=ReadKey { - , key -}
3.3.2. ( , ; ). , . - , , , , ( , ). .
|
|
3.4.
3.4.1. TXT
txt , . ASCII . Enter. txt (). txt, , , .
3.4.2.
- .
Type < >=arrray[< >] of < >
.
. , .. (Char) , , , integer.
.
:
Type arr=array[1..10] of integer;
Var z,x:arr;
Var z:array[1..10] of word;
.
. System: Low High .
. A A[i] i , , A[i,j,k] i, j k , .
:
Z[1]:=1;
For i:=1 to 9 do Z[i+1]:=z[1]+z[i];
.
, . : 36 ( ). , , .
3.5.
. , , . . , 36 , 1 36. , , 6 . , , 1. , . . . , . , , , . , , , , , , , , . , . . , , , .
3.6.
3.6.1.
. . . , , . , , . .
|
|
3.6.2. .
. , . , , . . , . , , . 1. , . : . ( ), . , For. . ( Y , - ).
3.6.3.
, . , . 1 ( 0, 1 1, ..). . 1 . -. , 1 , , , . , . - 2 1, , 2 , . , , , 1 . , , 1 1.
3.7.
Img (x,y,s:integer)
, X Y. 9 , X+5 Y+5. 9 , X+20 Y+5. , .
Img1 (x,y:integer)
, Bar. X Y. , .
Hit (x: integer)
, , Img, , . . , , .
lear (x: integer)
. , , OutTextXY, . .
Draw (x: integer)
, 6 . , . , .
Pturn
, . , , . Hit . .
turn
, . Hit . .
Pback
, . , , , . . . , Hit , , . - , ASCII , , . .
back
, Hit . . . .
Padd
, . , , , . , . . , Hit , , . - , ASCII , , . .
add
, Hit . . , . .
4.
, , , . , . , , , . , , , , , . , - . , . ( , , ) . . . , . , , , bmp, , , . , , , , - , , .