:: getPol () {return Pol;} * coder :: getReg () {return Reg_Cod;} coder :: setInf (bool * A) {Inf = A;} coder :: setPol (bool * A) {Pol = A;} coder :: setReg (bool * A) {Reg_Cod = A;} coder :: setSt (int B) {Step_P = B; } coder :: getSt () {return Step_P;} coder :: getV () {return V;} * coder: : getDec () {return Reg_Dec;} * coder :: getErr () {return Err;} coder :: setDec ( bool * A) {Reg_Dec = A;} coder :: setErr (bool * A) {Err = A;} coder :: Cod ()
{if (Inf! = 0 && Pol! = 0)
{if (Reg_Cod == 0) Reg_Cod = new bool [Step_P]; (i = 0; i
{Reg_Cod [i] = 0;} // Початкове заповнення регістра
for (i = 0; i
{bool Scan = Inf [i] ^ Reg_Cod [0]; (Scan == 0)
{for (j = 0; j {Reg_Cod [j] = Reg_Cod [j +1];} _Cod [Step_P-1] = 0;} (Scan == 1)
{for (j = 0; j {Reg_Cod [j] = Reg_Cod [j +1] ^ Pol [j +1];} _Cod [Step_P-1] = 1;} } (i = 0; i {Inf [V -Step_P + i] = Reg_Cod [i];}}}
{if (Inf! = 0 && Pol! = 0 && Err! = 0)
{Reg_Dec = new bool [Step_P]; (i = 0; i {Reg_Dec [i] = 0;} (i = 0; i {bool Scan = Reg_Dec [0]; (Scan == 0)
{for (j = 0; j {Reg_Dec [j] = Reg_Dec [j +1];} _Dec [Step_P-1 ] = Inf [i] ^ Err [i];} (Scan == 1)
{for (j = 0; j
# pragma hdrstop
# include
# include "Unit3.h"
# include "Unit2.h"
# include "coder.h"
# include
// ---------------------------------------- -----------------------------------
# pragma package (smart_init)
# pragma resource "*. dfm" * Form1; coder * My;
// ---------------------------------------- -----------------------------------
__fastcall TForm1 :: TForm1 (TComponent * Owner)
: TForm (Owner)
{My = new coder; My-> Init ();}