Головна |
Val (choice2, choice, code);
if (code 0)
then writeln ('Ви ввели не числиться!',
'Повторіть введення! ');
until code = 0;
Case choice of
Begin
{Реалізація першого варіанту дій}
{Оператори}
. . .
End;
Begin
{Реалізація другого варіанту дій}
{Оператори}
. . .
End;
Begin
{Реалізація третього варіанту дій}
{Оператори}
. . .
End;
Begin
{Реалізація четвертого варіанту дій}
{Оператори}
. . .
End;
Begin
writeln ('Ви дійсно хочете',
'Закінчити роботу? (Y / N) ');
Readln (exit_ans);
if exit_ans = 'Y'
then F: = false;
End;
Else writeln ('Incorrect menu point', choice);
end; {Case}
end; {While}
writeln ('Дякую за роботу! До побачення!');
Readln;
End.
Далі необхідно налагодити програму. Для цього підійдуть пункти оператора CASE, в гілках якого стоятимуть тільки оператори виведення на монітор, які тільки виводять зневадження для свого пункту, наприклад, для 1 пункту меню:
Begin
{Реалізація першого варіанту дій}
Writeln ('Обрано і працює 1 пункт меню');
End;
І т.д.По порядку.
Після налагодження можна приступати до «наповненню» складових операторів в гілках оператора CASE, по черзі реалізуючи відповідні варіанти обчислень - введення початкової інформації, варіанти обробки, вихід з програми.
Repeat
writeln ('Заголовок меню');
writeln ('1. Перший варіант дій');
writeln ('2. Другий варіант дій');
writeln ('3. Третій варіант дій');
writeln ('4. Четвертий варіант дій');
writeln ('5. Вихід з програми');
writeln ('Ваш вибір:');
Після налагодження цього варіанту програми можна приступати до «наповненню» складових операторів в гілках оператора CASE, по черзі реалізуючи відповідні варіанти обчислень - введення початкової інформації, варіанти обробки, вихід з програми. Наприклад, якщо в 1 пункті меню передбачено введення одновимірного масиву, то вид цього пункту в CASE може бути таким.
Val (choice2, choice, code); | Case choice of
Лабораторна робота № 1 | Розробка проекту виконується підгрупою з двох-трьох студентів. Можлива і індивідуальна розробка завдання. | За результатами захисту кожен член підгрупи отримує свою індивідуальну оцінку за захист. | Розглянемо процес створення меню по кроках. Розглядається фрагмент програми в розвитку відповідний. | Readln (choice2); |