Шпаргалка: Построение циклических кодов

Процедуры и функции модуля _сс31.

Unit _CC31;

Interface

Uses

Crt;

Const

n=30; { Информация+код }

n1=5; { Размер контрольных разрядов }

Type

Move_code=array[0..n] of byte; { Передаваемый полином F(x) }

Rest=array[0..n1] of byte; { Остаток }

Polinom=array[0..n1] of byte; { Образующий полином P(x) }

Procedure Init(var m1:Move_code;var p1:Polinom;

var r1:Rest;var flag:integer);

Procedure FxPx(var m6:Move_Code);

Procedure Divizion(var m2:Move_code;var r2:Rest;

p2:Polinom;var flag:integer);

Procedure BildMoveCode(var m3:Move_code;r3:Rest;var flag:integer);

Procedure Decoder(var m6:Move_Code);

Procedure MakeError(var m4:Move_code;var err:integer);

Procedure BildMoveCodeMultiplication(var m7:Move_Code);

Procedure Correction(var m5:Move_code;p5:Polinom;var r5:Rest);

Implementation

Procedure Init;

var

i:integer;

begin

p1[5]:=1;

p1[4]:=1;