![Рефераты | Рефераты по коммуникации и связи | Кодирующее устройство для кода Файера Рефераты | Рефераты по коммуникации и связи | Кодирующее устройство для кода Файера](/images/0/referatnatemu029.jpg)
Кодирующее устройство для кода Файера
Категория реферата: Рефераты по коммуникации и связи
Теги реферата: сообщение об открытии счета, дипломная работа 2011
Добавил(а) на сайт: Makarov.
Предыдущая страница реферата | 8 9 10 11 12 13 14 15 16 17 18 | Следующая страница реферата
{--------------------------------}
Procedure Delenye(F : Mass1;P : Mass2); {Деление многочлен на многочлен}
Var i,j,t : Byte; K : Mass1;
Begin
For i:=1 to _N do
Begin
IF F[i]=1 Then Begin t:=1;
For j:=i to i+_M-1 do
Begin
K[j]:=Sum(F[j],P[t]);
F[j]:=K[j]; t:=t+1;
End;
End;
End; t:=1;
For i:=_N+1 to _N+_M-1 do
Begin
R[t]:=F[i]; t:=t+1;
End;
End;
{----------------------------------------}
Procedure Ed_Matrix(Var A : Two_Matrix); {Составление еденичной матрицы}
Var i : Integer;
Begin
For i:=1 to _N do
Begin
A[i,_N+1-i]:=1
End;
End;
{----------------------------------------}
Procedure Obr_Matrix(Var A : Two_Matrix); {Получение образующей матрицы}
Var i,j,t,Schot,l,m : Byte; K : Mass1;
Begin
Delimoe[1]:=1;
Schot:=1;
For i:=1 to _N do
Begin
Рекомендуем скачать другие рефераты по теме: конспект урока, диплом государственного образца.
Предыдущая страница реферата | 8 9 10 11 12 13 14 15 16 17 18 | Следующая страница реферата