_WELCOMETO Radioland

Top50  











.




.








.














> >

: 8/10

 

t1 t4

(01001100) (10010010)

t2 t4 t1 t5

(00100100) (01000010) (01000010) (10000001)

꒠ ꒠

t3 t6

 

(10011100) (10011100)

 

3.3.1

 

. , , , . .

:

 

μ0

t3 t6

10011100

 

 

00100100 t1 t4 10000001

 

t2 t5

 

01001100 10010010

 

t4 t1

01000010

 

3.3.2

 

.

- , . , : μ1 = (01000010) μ2 = (00100010). , : t1 , t4 t4 , t1 . , t2 , t3 , t5 , t6 . , .

. (3.2.19), σ x , μ μ1. 8 6 x.

 

(3.3.5)

 

, , , , . (1) (4) , x5 = 0, x6 = 0, (7) , x4 = 1. (3.3.5) , x1. x1 = {y y-1 y-1 1 0 0}, y . μ1 , .

, . - , (3.3.5) , . - , , . , , , . , , .

, (3.2.19) μ2, :

 

(3.3.6)

 

, , . μ2, .

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

. . t1 t4 L1- , ( ) . t2, t3, t5 t6 L2- , .

, .

, .

 

xD = 0 (3.3.7)

 

 

(3.3.8)

 

2 : {y y y 0 0 0} {0 0 0 y y y}, y . , t1 t2 t3 t4 t5 t6 , .

(3.3.2) , . , , , .

, . , , , . , . .

(3.3.2) μ0 :

(3.3.9)

 

Turbo Pascal. . .

3.4

, , . , . , , , . , , .

 

 

, , .

 

 

 

1        .. . :, 1975. 538 .

2        ., . . .: , 1984. 831 .

3        . . .: , 1987. 392 .

4        .. 7.0: . .: , 1997. 432 .

 

 

Program Farewell_Pascal_Please_Forgive_Me;

Uses graph,crt;

Const m_0=$9C;

r_0=$90;

path='cursor.dat';

mask:array[0..5] of byte = ($90,$48,$20,$0C,$12,$01);

jump:array[0..5] of word = ($406F,$20B7,$98DF,$02F3,$01ED,$1CFE);

Var

i,j,counter,number:integer;

flag_of_exit:boolean;

ok:word;

bm:integer;

ScrMask:array[1..64] of byte;

r,m,old_m,old_r:byte;

f:file of byte;

procedure Init_Graph_Mode;

var

Driver,

Mode,

ErrCode: Integer;

begin

Driver := Detect;

InitGraph(Driver, Mode, '');

 

ErrCode := GraphResult;

if ErrCode <> grOk then

begin

Writeln(' :',

GraphErrorMSG(ErrCode));

Halt(1);

end;

SetTextStyle(DefaultFont, HorizDir, 1);

SetColor(15);

SetLineStyle(0,0,1);

SetFillStyle(1,0)

end;

function Init_Mouse:word;

begin

asm

push ax

mov ax,00h

int 33h

mov @Result,ax

pop ax

end

end;

procedure Show_Mouse;

begin

asm

push ax

mov ax,01h

int 33h

pop ax

end

end;

procedure Hide_Mouse;

begin

asm

push ax

mov ax,02h

int 33h

pop ax

end

end;

procedure Set_Graph_Cursor(segm,ofst:word;x,y:integer);