В предыдущей статье мы с вами разобрали работу цикла FOR-DOWNTO-DO, а в этой поговорим об инструкции по выбору Case-of-Else. Оператор выбора Case-of-Else используется в Паскале для сохранения ветвей вычислений.
Общий синтаксис оператора Case выглядит следующим образом:
1 2 3 4 5 |
case {условие} of manual1: {инструкция-1}; manual2: {инструкция-2}; manual3: {<span class="enlighter-text">инструкция-</span><span class="enlighter-n1">3</span><span class="enlighter-text"> ...</span><span class="enlighter-text">и т.д.};</span> end; |
Или:
1 2 3 4 5 6 |
case {условие} of manual1: {инструкция-1}; manual2: {инструкция-2}; manual3: {инструкция-3 ...и т.д.}; else {инструкция-3 будет сделана в случае невыполнения условия ранее}; end; |
Пример использования оператора выбора CASE-OF-ELSE:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
Programm manualCase; USES crt; VAR estimation:byte; BEGIN ClrScr; writeln('Укажите свой рейтинг по информатике в виде числа:'); read(estimation); CASE estimation 1: write('Недостаточный'); 2: write('Допускающий'); 3: write('Достающий'); 4: BEGIN writeln('Хорошо'); write('Поздравляем!'); END; 5: write('Очень хорошо!'); 6: write('Великолепно'); ELSE write('Вы дали неправильную оценку, попробуйте еще раз...'); END; repeat until keypressed(); end. |
И:
1 2 3 4 5 6 7 8 9 10 11 12 13 |
Programm manualCase; USES crt; VAR estimation:byte; BEGIN ClrScr; writeln('Введите любое целое число:'); read(estimation); CASE estimation OF 0..10,20..30: writeln('Вы указали число от 0 до 10 или от 20 до 30'); ELSE writeln('Вы указали число от от 0 до 10 и от 20 до 30'); END; repeat until keypressed(); end. |
С Уважением, MonitorBank