Головна

Readln (choice2);

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); |

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