Программа. VAR а,b : Char; (читается – "кэр", переводится – "символ")

12 13 14 15 16 17 18

Задача 14.

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

Программа.

Задача 13.

Символьный тип данных.

VAR а,b: Char; (читается – "кэр", переводится – "символ")

Это описание означает, что переменные а и b имеют право принимать значения любых символов, имеющихся на клавиатуре. Например: а:='л'; b:='+';

При вводе нескольких символов одним оператором ReadLn все символы набираются на клавиатуре подряд без пробелов.

Написать программу, переворачивающую любое трёхбуквенное слово, введённое человеком с клавиатуры.

VAR a1,a2,a3: Char;

BEGIN

ReadLn(a1,a2,a3);

WriteLn(a3,a2,a1)

END.

В Паскале есть специальный оператор, который позволяет выбрать одну из нескольких возможностей.

Этот оператор называется оператором выбора и имеет следующий вид:

case выражение of

список_значений_1: оператор_1;

список_значений_2: оператор_2;

…

список_значений_n: оператор_n;

else оператор;

end;

Здесь между зарезервированными словами case и of находится выражение, принимающее значение, которое может присутствовать в одном из списков значений, находящихся слева от двоеточий. Ветвь else, отвечающая всем неперечисленным значениям выражения, необязательна. При выполнении данного оператора вначале вычисляется значение выражения. Затем выбирается тот список значений, в котором находится полученное значение, и выполняется соответствующий ему оператор. Если значение выражения отсутствует в списках значений, ни один из вариантов выполняться не будет. В этом случае выполняется ветвь else оператора case или, если эта ветвь отсутствует, следующий за case оператор.

Замечание.

Переменная, стоящая после слова case, должна быть так называемого порядкового типа. Пока мы знаем 3 типа, относящихся к порядковым, - это Integer, LongInt и Char.

Написать программу, спрашивающую у ученика его отметку и реагирующую на неё подходящим текстом.

VAR otmetka: Integer;

BEGIN

WriteLn('Какую отметку ты получил сегодня?');

ReadLn(otmetka);

case otmetka of

1,2: WriteLn('Кошмар!');

3: WriteLn('Неважно');

4: WriteLn('Неплохо');

5: WriteLn('Отлично');

else WriteLn('Таких отметок не бывает');

end