Предыдущая страница реферата | 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 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки