Головна |
Власне текст меню (запропоновані 4 умовних варіанти дій і 5 - вихід з програми з підтвердженням):
writeln ('Заголовок меню');
writeln ('1. Перший варіант дій');
writeln ('2. Другий варіант дій');
writeln ('3. Третій варіант дій');
writeln ('4. Четвертий варіант дій');
writeln ('5. Вихід з програми');
writeln ('Ваш вибір:');
readln (choice2); {введення відповіді користувача
для аналізу і вибору дій}
Далі необхідно визначити і виконати варіант обчислень у відповідності з вибором користувача. Для цього застосовується оператор множинного вибору CASE. . . OF і змінна CHOICE2:
Case choice2 of
Begin
{Реалізація першого варіанту дій}
{Оператори}
. . .
End;
Begin
{Реалізація другого варіанту дій}
{Оператори}
. . .
End;
Begin
{Реалізація третього варіанту дій}
{Оператори}
. . .
End;
Begin
{Реалізація четвертого варіанту дій}
{Оператори}
. . .
End;
Begin
writeln ('Ви дійсно хочете',
'Закінчити роботу? (Y / N) ');
Readln (exit_ans);
if exit_ans = 'Y'
then. . . {Реалізація виходу}
End;
end; {Case}
Поки даний варіант показує, по-перше, меню в «лінійному вигляді», а нормальне меню працює до відмови користувача від роботи, по-друге, в ньому немає блокувань від некоректних дій користувача.
Для забезпечення роботи меню «в циклі» можна зробити так.
Var
exit_ans: string;
choice2: integer;
F: boolean;
{Тіло головною викликає програми}
Begin
F: = true; {Прапор управління циклом меню}
while (F = true) do
Begin
writeln ('Заголовок меню');
writeln ('1. Перший варіант дій');
writeln ('2. Другий варіант дій');
writeln ('3. Третій варіант дій');
writeln ('4. Четвертий варіант дій');
writeln ('5. Вихід з програми');
writeln ('Ваш вибір:');
За результатами захисту кожен член підгрупи отримує свою індивідуальну оцінку за захист. | Readln (choice2);
Лабораторна робота № 1 | Розробка проекту виконується підгрупою з двох-трьох студентів. Можлива і індивідуальна розробка завдання. | Val (choice2, choice, code); | Readln (choice2); | Case choice of |