Предыдущая страница реферата | 10  11  12  13  14  15  16  17  18  19  20 | Следующая страница реферата

Code: Integer; ch,chi:Char;

Stop:Boolean;

Elm : String;

Begin moveto(20,465);
SetTextJustify(0,1);
SetColor(0); outtext('Нажмите Enter'); x:=30; y:=225; k:=17;
Fon:=1;
Color:=14;
Window_(30,150,610,260,1,'Ввод нформационных символов');
SetTextStyle(1,0,4);
SetColor(Fon);
For i:=1 to _N Do

Begin

MoveTo(x+i*k,y);

Str(Sa[i],Elm);

OutText(Elm);

End;
SetTextStyle(0,0,1);
MoveTo(x+17,y-20);
Str(_N,Elm);
OutText(Elm);
MoveTo(x+_N*17,y-20);
Str(0,Elm);
OutText(Elm);

SetTextStyle(1,0,4); i:=1;

MoveTo(x+i*k,y);

Setcolor(Color);

Str(Sa[i],Elm);

OutText(Elm);

Stop:=False;

Repeat

Begin ch:=ReadKey;

Case ch Of

#75:Begin

Setcolor(Fon);

MoveTo(x+i*k,y);

Str(Sa[i],Elm);

OutText(Elm); i:=i-1; if(i_N)then i:=1;

SetColor(Color);

MoveTo(x+i*k,y);

Рекомендуем скачать другие рефераты по теме: конспект урока, диплом государственного образца.



Предыдущая страница реферата | 10  11  12  13  14  15  16  17  18  19  20 | Следующая страница реферата

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