Условный оператор IF

End.

Begin

read(x,y);

c1:=abs(x)/(abs(x)+1);

c2:=arctan(sqrt(1-c1*c1)/c1);

a:=exp(ln(c1+1)/3)+c2;

c1:=sin(x)/cos(x);

c2:=y*y;

c3:=c1*c1;

c4:=c1/c2;

b:=c4; c4:=c4*c3/c2; b:=b+c4;

c4:=c4*c3/c2; b:=b+c4;

writeln(' a=',a:5:3,' b=',b:5:3)

Оператор IF в Турбо Паскале допускается в двух вариантах: полный оператор IF и укороченная форма оператора.

TRUE

TRUE

Укороченная форма

FALSE

IF <логическое выражение> THEN <оператор>;

Полный оператор IF

FALSE

IF <логическое выражение> THEN <оператор1> ELSE <оператор2>

Примеры:

1. ½x ½ Þ if x < 0 then x:=-x;

2. y=sign(x) Þ if x < 0 then y:=-1 else

if x=0 then y:=0 else y:=1;

Что будет напечатано в результате выполнения следующего фрагмента программы

read(x,y);

z:=0;

if x>0 then if y>0 then z:=1 else z:=-1;

Если вводить 1) х=1,у=1; 2) х=1, у=-1; 3) х=-1, у=1.