TextBackGround(Black);TextColor(White);
End;
{вивід пунктів меню}
GotoXY(x, y+i);Write(NameRegime[i]);
End;
Code:=ReadKey;
Sound(700);Delay(50);NoSound;
If Code=#0 Then {ознака функціональної клавіші}
Begin
Code:=ReadKey;
Case Code of
{Up} #72:If n>1 Then Dec(n) Else n:=k;
{Down} #80:If n<k Then Inc(n) Else n:=1;
End;{Case}
End;
End;{While}
End;{VertMenu}
Begin
Zastavka;
While True do
Begin
ClrScr;
VertMenu(Num);
Case Num of
1:Input;
2:ViewEdit;
3:Diagram;
4:Begin
TextBackGround(Black);TextColor(LightGray);
ClrScr;Halt End;
End;{Case}
End;{While}
End.
Контрольні питання
1. Типи меню. В чому їх особливості?
2. Яким чином підтримується переміщення та зображення вибраного пункту меню?
3. Навіщо використовують перечислюваний тип у задачі побудови меню?
Завдання та пояснення щодо виконання до лабораторної роботи
Розробити підпрограму заставки засобами модуля Crt для програми, яка відповідає варіанту завдання лабораторної роботи 2.
Тип меню можна обрати, вирішивши до якого типу з перелічених нижче типів (з точки зору меню), належить програма.
1. Проста програма: реалізує один або кілька алгоритмів (наприклад, декілька обчислень). Меню у цьому випадку не потрібне, оскільки немає логічно відособлених елементів процесу вирішення.
2. Лінійна програма: реалізує виконання ряду логічно завершених блоків, які необхідні для реалізації загальної мети. Основна особливість програм цього типу - відсутність підменю, оскільки керування здійснюється на рівнях режимів.
3. Структурована програма: реалізує усілякі функціональні блоки різних рівнів вкладеності. Керування ведеться на рівні режимів і підрежимів. Основна особливість програм цього типу - необхідність організації доволі складного структурованого меню. Наприклад, меню інтегрованого середовища системи Turbo Pascal.
