[x, y]: = DcD [Posit];; TForm1.Zigzag (Style: ShortInt); i, j: Integer;: = 0;: = 0;: = 0; Style = 1 Then Zgzg [Posit]: = TOC [i, j] TOC [ i, j]: = DcD [Posit]; (i, j, Style); (i <7) and (j> = 0) doi <> 0 do TLD (i, j, Style); (i, j , Style); j <> 0 do TRU (i, j, Style); (i, j, Style); (i <= 7) And (j <6) doj <> 7 do TLD (i, j , Style); (i, j, Style); i <> 7 do Array [0 .. 15] of Integer; i: = 0 To N-1 Do Begin k: = Digit Mod 2; [i]: = k;: = Digit Div 2; i: = N-1 DownTo 0 do Then BinA: = BinA + IntToStr (i) BinA: = BinA + IntToStr (k);: = Abs (Digit); (Digit, N-1); BinA: ='';; TForm1.ChoiceAmp (Digit: SmallInt) ; Digit Of
, 0 .. 1: Begin ToBinTo (2,4); ToBin (Digit, 2) End;
.. -2,2 .. 3: Begin ToBinTo (3,4); ToBin (Digit, 3) End;
.. -4,4 .. 7: Begin ToBinTo (4,4); ToBin (Digit, 4) End;
.. -8,8 .. 15: Begin ToBinTo (5,4); ToBin (Digit, 5) End;
.. -16,16 .. 31: Begin ToBinTo (6,4); ToBin (Digit, 6) End;
.. -32,32 .. 63: Begin ToBinTo (7,4); ToBin (Digit, 7) End;
.. -64,64 .. 127: Begin ToBinTo (8,4); ToBin (Digit, 8) End;
.. -128,128 .. 255: Begin ToBinTo (9,4); ToBin (Digit, 9) End;
.. -256,256 .. 511: Begin ToBinTo (10,4); ToBin (Digit, 10) End;
.. -512,512 .. 1024: Begin ToBinTo (11,4); ToBin (Digit, 11) End; TForm1.Coding; ZeroCounter: Integer;: Integer;: =''; (1 );: = 0; n: = 0 to 63 Do Begin BinA: =''; Zgzg [n] = 0 Then Begin (ZeroCounter); ZeroCounter = 15 Then
Begin (15,4); BinA: =''; (0,4); BinA: ='';: = 0;
endbegin (ZeroCounter, 4); BinA: =''; (Zgzg [n]); BinA: ='';: = 0;;; ZeroCounter <> 0 Then (ZeroCounter, 4 ); BinA: =''; (0,4); BinA: ='';: = 0;;
{***************************************** ******************} TForm1.BinToSym1Dec;, i: ShortInt;: String;: Array [0 .. 3] of Integer;: = 0;: = 0; i: = 0 To 3 Do [i]: = StrToInt (RabFile [i + prf]); (prf, 4); i: = 3 DownTo 0 do Begin: = Nol [i]; k = 1 Then Inc (Sym11 , Trunc (exp ((3-i) * Ln (2)))); i: = 0 To 3 Do [i]: = StrToInt (RabFile [i + prf]) ;//Read (F, k); (prf, 4); i: = 3 DownTo 0 do Begin: = Nol [i]; k = 1 Then Inc (Sym12, Trunc (exp ((3-i) * Ln (2))));
// inc (prf);; TForm1.BinToSym2Dec; k, i: ShortInt;: Byte;: Array [0 .. 15] of integer; Sym12 <> 0 Then: = StrToInt ( RabFile [prf]) ;//Read (F, k); (prf);: = k;: = 0; i: = 0 To Sym12-2 Do [i]: = StrToInt (RabFile [i + prf]) ;//Read (F, k); (prf, Sym12-1); i: = Sym12-2 DownTo 0 do Begin: = Nol [i]; k = 1 Then Inc (Sym2, Trunc (exp ((Sym12- 2-i) * Ln (2))));
// Inc (prf); Mark = 1 Then Sym2: =-Sym2; Sym2: = 0;
// Inc (prf);; TForm1.Decoding; i: Byte;: = 1; i: ...
