![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Readln (choice2);. Val (choice2, choice, code); ⇐ ПредыдущаяСтр 4 из 4
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 может быть таким. Case choice of Begin { Ввод одномерного массива } Writeln (‘Введите фактическое количество’, ‘ элементов массива, < = 30’); Readln (N); For i: = 1 to N do Begin Writeln (‘ Введите элемент №: ‘, i); Readln (A [i]); End; End; И так далее, по пунктам. Расположение меню на экране Данное описанное меню имеет недостаток, оно расположено в левом верхнем углу экрана. Чтобы переместить меню ближе к центру экрана, надо использовать самый простой способ – добавить в константах пробелы слева от текста, чем больше пробелов тем текст ближе по строке к середине. Чтобы опустить текст по вертикали, надо добавлять перед операторами печати Writeln; - вывод пустой строки столько раз, сколько окажется нужным. Repeat Writeln; Writeln; Writeln;
|