Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






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('Ваш выбор: ');






© 2023 :: MyLektsii.ru :: Мои Лекции
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
Копирование текстов разрешено только с указанием индексируемой ссылки на источник.