Оператор выбора Case

1.

2.

Оператор варианта CASE
CASE селектор OF
значение1: оператор1;
значение2: оператор2;
значение3: оператор3;
...
ELSE оператор N
end;

3.

Пример использования оператора CASE
Var Otmetka: integer;
BEGIN
WriteLn (‘Какую отметку ты получил по истории?’);
ReadLn(Otmetka);
CASE Otmetka OF
1,2: WriteLn(‘Кошмар!’);
3: WriteLn(‘Неважно’);
4: WriteLn(‘Неплохо’);
5: WriteLn(‘Молодец!’);
ELSE WriteLn(‘Таких отметок не бывает’);
END;
END.

4.

Пример использования оператора CASE
Var a,k: integer;
BEGIN
a:=3;
CASE a*a+1 OF
8,3,20: k:=0;
7,10 : begin k:=1; WriteLn(k); end;
12..18: k:=3;
END;
END.

5.

ЗАДАЧИ:
1. Написать программу, позволяющую получить
словесное наименование школьных оценок.
2. Написать программу преобразования цифр в слова.
3. По номеру дня недели вывести его название.
4. Написать программу, которая по номеру дня недели целому числу от 1 до 7, будет выдавать в качестве
результата количество занятий в группе в
соответствующий день.
5. Напишите программу, которая по введенному числу
из промежутка 0..24, определяет время суток.

6.

ЗАДАЧИ:
6. Ученик вводит с клавиатуры строчную букву
русского алфавита. Компьютер должен сказать,
какой звук обозначает эта буква – гласный,
согласный звонкий, согласный глухой или какойнибудь другой (можно и НЕ ЗНАЮ).
7. «Калькулятор» . Ученик вводит с клавиатуры
число, символ арифметического действия (+,-,*,/) и
еще одно число. Компьютер должен напечатать
результат.