Кодирующее устройство для кода Файера
| Категория реферата: Рефераты по коммуникации и связи
| Теги реферата: сообщение об открытии счета, дипломная работа 2011
| Добавил(а) на сайт: Makarov.
Предыдущая страница реферата | 13 14 15 16 17 18 19 20 21 22 23 | Следующая страница реферата
OutText(Y_No[i]); i:=i-1; if(i2)then i:=2;
SetFillStyle(1,Fon);
Bar(x+i*k-30,y-15,x+i*k+30,y+15);
SetColor(Color);
MoveTo(x+i*k,y);
OutText(Y_No[i]);
Stop:=False;
End;{вправо}
#13:Begin Stop:=True; _Exit:=i End;
End;{Case}
Until Stop;
SetTextStyle(0,0,0);
End;
{---------------------------------}
{ОСНОВНАЯ ПРОГРАММА }
{---------------------------------}
Begin
InitGrf;
Repeat flag:=false;
Fon(3,2,GetMaxX-3,30); setcolor(0); moveto(20,465);
SetTextJustify(0,1); outtext('Esc - Выход');
Menu(3,'Работа','О программе','Помощь','','','');
Case t Of
1:Begin
Repeat
SetFillStyle(1,7); {Строка состтояния}
Bar(3,450,getmaxx-3,getmaxy-3);
SetColor(15);
Line(3,450,getmaxx-3,450);
Line(3,450,3,getmaxy-3);
SetColor(0);
Line(3,getmaxy-3,getmaxx-3,getmaxy-3);
Line(getmaxx-3,450,getmaxx-3,getmaxy-3);
{moveto(20,465);
SetTextJustify(0,1);
Рекомендуем скачать другие рефераты по теме: конспект урока, диплом государственного образца.
Категории:
Предыдущая страница реферата | 13 14 15 16 17 18 19 20 21 22 23 | Следующая страница реферата
Главная