Кодирующее устройство для кода Файера
| Категория реферата: Рефераты по коммуникации и связи
| Теги реферата: сообщение об открытии счета, дипломная работа 2011
| Добавил(а) на сайт: Makarov.
Предыдущая страница реферата | 13 14 15 16 17 18 19 20 21 22 23 | Следующая страница реферата
Str(Obr_Matr[i,j],Elm);
OutText(Elm);
End;
End;
End;
{----------------------------------}
{Вывод полученной кодовой комбинации}
Procedure OutPut(x,y : Integer;F,A : Mass1);
Var k,s : Integer;
Elm : String;
Begin
MoveTo(x+10,y-20);
Str(_N+_M-1,Elm);
OutText(Elm);
MoveTo(x+(_N+_M)*12-3,y-20);
Str(0,Elm);
OutText(Elm); k:=12;
For i:=1 to _N Do Cicle_Kod[i]:=F[i];
s:=1;
For i:=_N+1 To _N+_M-1 Do
Begin
Cicle_Kod[i]:=A[s]; s:=s+1;
End;
For i:=1 to _N Do
Begin
MoveTo(x+i*k,y);
Str(Cicle_Kod[i],Elm);
OutText(Elm);
End;
SetColor(4);
Рекомендуем скачать другие рефераты по теме: конспект урока, диплом государственного образца.
Категории:
Предыдущая страница реферата | 13 14 15 16 17 18 19 20 21 22 23 | Следующая страница реферата
Главная