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