Операторы ветвления и выбора

Условный оператор: пример вычисления значения функции

Вычислить значение функции

при значениях:

В приведенном ниже примере использовано вложение одного условного оператора в другой. Обратите внимание: во вложенном условном операторе if каждое простое условие взято в скобки. Это делается потому, что приоритет операций сравнения ниже приоритета логических операций, и в отсутствие скобок компилятор строил бы конструкцию вида ln(a) and x, что привело бы к ошибке.

program ex02_02;

const a=0.2; b=5; z=1;

var x,y: real;

begin

write('введите x:'); readln(x);

IF (x<ln(a)) THEN y:=a*sqr(sin(x))+b*x

ELSE

IF (x>ln(a)) and (x<=b) THEN y:=a*x

ELSE y:=sqrt(2.5*a*a*a+sqr(b-z*x));

end.

Результат работы программы:

введите x:2

y = 0.4000

Оператор выбора: пример определения числа дней в месяце

Вывести на экран число дней в месяце.

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

program ex02_03;

var M, D: integer;

begin

writeln('Введите номер месяца:');

read (M);

case M of

2: begin D:= 28; end;

4,6,9,11: begin D:= 30; end;

1,3,5,7,8,10,12: D:= 31;

else D:= -1;

end;

if D > 0 then

writeln('В этом месяце ', D, ' дней.')

else

writeln('Неверный номер месяца');

end.

Результат работы программы:

Введите номер месяца:14

Неверный номер месяца

Введите номер месяца:2

В этом месяце 28 дней.

Вычисление дня недели по дате

Вычислить номер дня недели по введенной дате. Входные данные: day – число месяца, month и year – месяц и год. Вычисление производится по формуле:

где: m и y – месяц и год по древнеримскому календарю (год в Древнем Риме начинался с марта), с – номер столетия, переменная Y – номер года в столетии. Квадратные скобки означают, что надо взять целую часть выражения.

Чтобы вычислить год и месяц по древнеримскому календарю, необходимо выполнить действия:

1) если месяц month равен 1 или 2, то год year уменьшить на единицу;

2) иначе выполнить: m = month - 2; если m меньше нуля, то прибавить 12.

Результат – номер дня недели (0 – воскресенье).

В программе используются условный оператор и оператор выбора, а также операции целочисленного деления div и получения остатка от целочисленного деления mod.

program DayOfWeek;

{вычисляет день недели по введенной дате}

var

{ вводимые данные }

day, month, year: integer;

dow: integer; {результат: номер дня недели}

d,m,c,y:integer;

begin

write('введите через пробел день, месяц и год: ');

readln(day, month, year);

if (month=1) or (month=2) then year:=year-1;

m:=month-2;

if m<=0 then m:=m+12;

c:=year div 100;

y:=year mod 100;

d:=(day + (13*m-1) div 5 +y+ (y div 4) +

(c div 4) - 2*c + 777) mod 7;

case d of

0: writeln('воскресенье');

1: writeln('понедельник');

2: writeln('вторник');

3: writeln('среда');

4: writeln('четверг');

5: writeln('пятница');

6: writeln('суббота');

end;

readln;

end.

Пример работы программы:

введите через пробел день, месяц и год: 10 12 2016

суббота

Операторы цикла