Пример 6.10
Оператор варианта, соответствующий условию задачи, приведенной в примере 1.9:
case k of
1: s := pi * sqr (r);
2: s := 2 * pi * r;
3, 4: s := sqr (c) / 4 * pi
end;
Первый по порядку оператор присваивания будет выполнен, если значение селектора - переменной k будет равно 1, второй - если оно равно 2, и, наконец, третий - если значение k окажется равным 3 или 5
Пример 6.11
Следующая программа определяет животное, соответствующее году рождения (по китайскому гороскопу).
program example611;
var
n, year : integer;
begin
write (’введите год рождения’);
readln (year);
n:= year mod 12;
case n 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.
Пример 6.12
Составить программу, которая определяла бы является ли буква латинского алфавита гласной или согласной.
program example612;
var bukva : char;
begin
write (’введите букву –’);
readln (bukva);
case bukva of
'a', 'e', 'i', 'o', 'u': write (bukva,' - гласная')
else write (bukva,' - согласная')
end
end.
_______________________________________________________
6.4. Вопросы для самоконтроля
Какие вычислительные процессы относятся к ветвящимся?
Почему
в программе необходимо предусматривать
вычисления по всем возможным ветвям?Какую роль в программе выполняют операторы передачи управления? Каковы их разновидности?
Какова структура условного оператора?
Как выполняется условный оператор?
Что представляет собой составной оператор, в какой форме он записывается?
Приведите структуру оператора перехода.
Что представляет собой метка, для чего она используется?
Как и где описывается метка?
Можно ли одной и той же меткой пометить два различных оператора программы?
В каких случаях используется оператор case?
Какова структура оператора case и как он выполняется?
Могут ли метка и селектор иметь разный тип?
Можно ли передать управление одной из альтернатив при помощи оператора goto?