Операторные скобки

Если после слов THEN или ELSE нужно сделать не одно, а несколько действий, то они заключаются в операторные скобки:

BEGIN; ¾® открывающая скобка

END; ¾® закрывающая скобка

Пример:

записать условный оператор:

если x Î [3;6] то вычислить y=sin(x), z=cos(x)

Запись: IF (x>=3)and(x<=6) then begin

y:=sin(x);z:=cos(x);end;

Задача: Ввести три целых числа. Если они все четные, то вычислить:

и вывести результат на экран.

В противном случае z = 0 и результат нужно вывести на экран.

program prim;

var a,b,c:integer;

y:real;

begin

writeln('введи 3 целых числа');

read(a,b,c);

if (a mod 2=0)and(b mod 2=0)and(c mod 2=0) then begin

y:=(a+b*b+c)/(a*b*c);

writeln('числа четные,y=',y);end

else begin z:=0;

writeln('не все четные,z=',z);end;

end.

Задача: Заработная плата лаборантов не превышает 130 долларов, инженера – 130–220 долларов, доцент получает свыше 220 долларов. Премии выдаются соответственно в размере 2, 3 и 4 % зарплаты. Определить должность и размер премии сотрудника, получившего зарплату "х" долларов, где "х" – больший корень уравнения:

x² – 188x + 555 = 0.

program prim;

var x,p:real;

begin

x:=(188+sqrt(188*188-4*555))/2;

if x<=130 then begin

p:=x*0.02;

writeln('это лаборант,премия=',p);

end;

if (x>130)and(x<=220) then begin

p:=x*0.03;

writeln('это инженер,премия=',p);

end;

if x>220 then begin

p:=x*0.04;

writeln('это доцент,премия=',p);

end;

end.

ЗАДАЧИ

1. Записать операторы:

а) если х Î (- ¥; 3) È [ 6; 8), то y=7 и z=8

б) если x>3 или y<6, то

в) если х ¹ 3 и y=6, то z=7, иначе

2. Чему будет равен Y? y:=1;

if x>0 then begin y:=y+1;y:=y+3;end

else y:=y+4;y:=y+5;

при х=3?

при х=0?

3. Составить программу: если x Î (-3; -2 ] È [ 2; 5) то

вычислить и ,

в противном случае .

4. Определить, принадлежит ли точка с заданными координатами (a,b) фигуре Q, если координаты любой точки области Q удовлетворяют неравенствам y ³ x ²- 2 и y £ x².

5. Вычислить y = e^{sin x}; z = ln çx+3 ç. Какая из функций имеет большее значение при данном х?

6. Квадраты при игре в крестики-нолики занумерованы следующим образом