PS!!!Однако, когда выбор зависит от значений нескольких различных переменных, то нужно использовать структуру выбора If…Then.

Обратите внимание, что:

1. здесь уже не нужно каждый раз повторять такие слова, как E l s e l f и Then.

2. в операторе Select Case нет ограничения на количество строк Case, поэтому вы можете создать их столько, сколько нужно для учета всех возможных вариантов.

Обратить внимание на то, что в конце использования данного оператора ставится End, на пунктуацию –если используется Else, то после последнего, оператора не ставится; .

< выражение> проверяемое в Case должно иметь значение типа –integer или char.

< значение > может записываться разными способами:

Единичное ‘а’: < Выражение>

2: < Выражение>

Список       ‘а’, ‘А’, ‘Z’: < Выражение>

5, 7, 9: < Выражение>

Интервал ’a’.. ’z’: < Выражение>

15.. 23: < Выражение>

< оператор> -любой простой или составной оператор.

Перепишем предыдущую задачу:

Program china;

Var god, num: integer;

Begin

Writeln (‘Введите год: ’);

Readln(god);

num: =god mod 12;

case num of

0: write (‘Обезьяна’);

1: write (‘Петух’);

2: write (‘Собака’);

3: write (‘Кабан’);

4: write (‘Крыса’);

5: write (‘Бык’);

6: write (‘Тигр’);

7: write (‘Заяц’);

8: write (‘Дракон’);

9: write (‘Змея’);

10: write (‘Лошадь’);

11: write (‘Овца’);

End;

end.

(Оба примера программ в сравнении записать в тетради)

Первый столбик – 1 задача, 2 столбик – 2 задача)

Итак, мы познакомились с условным оператором и сравнили решение двух задач.

Домашнее задание: предлагаю вам написать программу, которая по введенному номеру месяца выдает, сколько дней в этом месяце. Год считать не высокосным. (возможны два варианта решения)

Спасибо за урок!