Как организовать переход между пунктами меню в TurboPascal 7.0 - voprosy.by - вопросы и ответы Беларуси

Как организовать переход между пунктами меню в TurboPascal 7.0

открытый 2 ответы 0 Просмотров Размещен в Программирование
Поделитесь с помощью любой кнопки:
3
begin

lq:emenu;

ch:=readkey;

kod:=ord(ch);

case kod of 49:begin sound(1976);

delay(150);

nosound;

spravka;

readkey;

end;

50:begin sound(1975);

delay(150);

nosound;

avtor;

readkey;

end;

51:begin sound(1974);

delay(150);

nosound;

clrscr;

zadacha;

end;

52:begin sound(1976);

delay(150);

nosound;

goto ql;

end;

end;

goto lq;

ql:end.

2 ответов

3
Что имеется ввиду под фразой переход между пунктами меню: переход вводом цифры требуемого пункта меню или при помощи стрелок клавиатуры.

P.S.: Пожалуйста напиши код не в одну строку (одним предложением), а в виде - один оператор на одну строку (такл легче в коде разбираться).
0
pintop_amtar-setr_by    там посмотри....

Пожалуйста войдите или зарегистрируйтесь для ответа на этот вопрос.

4,260 вопросов

19,308 ответов

9,634 комментарии

16,700 пользователи