Главная страница Случайная страница
КАТЕГОРИИ:
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Readln (choice2);
|
|
Val (choice2, choice, code);
Для контроля ввода рекомендуется применение процедуры
Val (choice2, choice, code);
преобразующей введённую в символьной форме информацию (choice2) в число (choice). Параметр Code показывает результат преобразования: если значение параметра Code = 0, то преобразование прошло успешно, иначе необходимо информировать пользователя об ошибке и заставить повторить ввод. Вариант реализации этой защиты
Repeat
writeln(' Заголовок меню');
writeln('1. Первый вариант действий');
writeln('2. Второй вариант действий ');
writeln('3. Третий вариант действий’);
writeln('4. Четвёртый вариант действий ');
writeln('5. Выход из программы');
writeln('Ваш выбор: ');
Readln (choice2);
Val (choice2, choice, code);
if (code< > 0)
then writeln ('Вы ввели не число! ’,
Choice2,
’ Повторите ввод! ');
until code=0;
Case choice of
Begin
...
| Усложнённое задание Дополнительно сформировать счётчик повторений попыток ввода (на 3-5 неудачных попыток). Когда заданный лимит попыток будет превзойдён, программа прекращает работу, уведомив пользователя о том, что он исчерпал свои возможности. Заблокировать, не допускать выполнения пунктов обработки информации, если не была введена исходная информация! Использовать «флажок», чтобы знать, введена информация или ещё нет |
PROGRAM Menu; {Окончательный вариант }
Var
exit_ans: string;
choice, code: integer;
F, Fl: boolean;
{Тело главной вызывающей программы}
Begin
F: = true; { Флаг управления циклом меню }
while (F = true) do
Begin
Repeat
writeln(' Заголовок меню');
writeln('1. Первый вариант действий');
writeln('2. Второй вариант действий ');
writeln('3. Третий вариант действий’);
writeln('4. Четвёртый вариант действий ');
writeln('5. Выход из программы');
writeln('Ваш выбор: ');