Создание текстового редактора
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: бесплатные курсовые работы скачать, контрольные работы 8 класс
| Добавил(а) на сайт: Sharshin.
Предыдущая страница реферата | 7 8 9 10 11 12 13 14 15 16 17 | Следующая страница реферата
for i:=1 to N do begin
GoToXY(x,y+i-1);
write(menu[i]);
end;
TextAttr:=SEL;
GoToXY(x,y+punkt-1);
write(menu[punkt]);{ выделим строку меню }
TextAttr:=NORM;
end;
begin
menu[1]:=' О программе ';
menu[2]:=' Помощь ';
menu[3]:=' Выход ';
punkt:=1;
x:=5;
y:=5; TextAttr:=NORM;
MenuToScr;
repeat
ch:=ReadKey;
if ch=char(0) then begin
ch:=ReadKey;
case ch of
chr(80):{ стрелка вниз }
if punkt<N then begin
GoToXY(x,y+punkt-1);
Рекомендуем скачать другие рефераты по теме: сочинение капитанская, борьба реферат.
Категории:
Предыдущая страница реферата | 7 8 9 10 11 12 13 14 15 16 17 | Следующая страница реферата
Главная