Урок 8. Условный оператор. Оператор выбора

1. Рассмотреть решение ДЗ
Задача if27
var x: real;
var y: integer;
begin
writeln('Программа находит значение функции');
write('Введите аргумент): ');
read(x);
if  (x<0) then  y:=0;
if  (trunc(x)mod 2 =0) then  y:=1;
if  (trunc(x)mod 2 =1) then  y:=-1;
writeln('y=',y);
end.


Задача if29
var x: integer;
begin
writeln('Программа выводит строку-описание вида «отрицательное четное число»,«нулевоечисло»,«положительное нечетное число» и т.д.');
write('Введите целое число: ');
read(x);
if  (x=0) then  write('Нулевое число');
if  (x<0)and(x mod 2=0) then  write('Отрицательное четное число');
if  (x<0)and(x mod 2<>0) then  write('Отрицательное нечетное число');
if  (x>0)and(x mod 2=0) then  write('Положительное четное число');
if  (x>0)and(x mod 2<>0) then  write('Положительное нечетное число');
end.

2. Самостоятельно решите задачу if30

3. Оператор выбора CASE

Оператор выбора работает следующим образом. Сначала вычисляется значение выражения, стоящее после зарезервированного слова case, а затем выполняется оператор (или составной оператор), соответствующий результату вычисления выражения.

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

case выражение of
значение1 : оператор (группа операторов);
значение2 : оператор (группа операторов);
. . . 
значениеN : оператор (группа операторов)
else оператор (группа операторов);
end;

Рассмотрим его использование на примере следующих задач (стр. 22 электронного учебника): case1.pas, case16.pas.

4. Домашнее задание
Напишите программы для решения следующих задач: case2.pas, case18.pas.