Головна

Розглянемо процес створення меню по кроках. Розглядається фрагмент програми в розвитку відповідний.

Власне текст меню (запропоновані 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 |

© 2016-2022  um.co.ua - учбові матеріали та реферати