Кодирующее устройство для кода Файера
| Категория реферата: Рефераты по коммуникации и связи
| Теги реферата: сообщение об открытии счета, дипломная работа 2011
| Добавил(а) на сайт: Makarov.
Предыдущая страница реферата | 9 10 11 12 13 14 15 16 17 18 19 | Следующая страница реферата
IF Delimoe[i]=1 Then Begin t:=1;
For j:=i to i+_M-1 do
Begin
K[j]:=Sum(Delimoe[j],P[t]);
Delimoe[j]:=K[j];
t:=t+1;
End;
l:=1;
For m:=i+1 to i+_M-1 do
Begin
A[Schot,_N+l]:=Delimoe[m]; l:=l+1;
End;
End
Else Begin l:=1;
For m:=i+1 to i+_M-1 do
Begin
A[Schot,_N+l]:=Delimoe[m]; l:=l+1;
End;
End;
Schot:=Schot+1;
End;
End;
Procedure InitGrf; {Инициализация графики}
Begin grDriver := Detect;
InitGraph(grDriver, grMode,'c:subbpbgi'); if GraphResult grOk then Begin
Halt(1);
End;
End;
Procedure Visual(Var sa:mass); {Ввод информационных символов}
Var i,x,y,k,Fon,Color,a:Integer;
Рекомендуем скачать другие рефераты по теме: конспект урока, диплом государственного образца.
Категории:
Предыдущая страница реферата | 9 10 11 12 13 14 15 16 17 18 19 | Следующая страница реферата
Главная