Учебное пособие: Основы технологии программирования

write ( menu[i] );

end;

{textattr - предопределенная переменная, отвечающая за цвет фона и символов}

textattr:=sel;

gotoxy(x,y+punkt-1);

write( menu[punkt] ); {выделим строку меню}

textattr:=norm;

end;

Procedure Punkt1;

begin clrscr;

writeln(‘Процедура 1. Нажмите <Enter> для продолжения’); readln;

end;

Procedure Punkt2;

begin clrscr;

writeln(‘Процедура 2. Нажмите <Enter> для продолжения’); readln;

end;

{основная программа}

Begin

menu[1]:=’ Действие 1 ’;

menu[2]:=’ Действие 2 ’;

menu[3]:=’ Выход ’;

punkt:=1; x:=5; y:=5; textattr:=norm;

Menutoscr;

repeat

ch:=ReafKey;

if ch=chr(0) then

begin

ch:=ReadKey;

case ch of