Условный оператор с несколькими условиями

Вышеприведённая схема каскада условных операторов используется достаточно часто, поэтому ряд языков программирования содержит специальную конструкцию для неё, позволяющую записать множественное ветвление несколько компактнее и менее подверженную ошибкам написания:

if условие1 then команды1

elsif условие2 then команды2

elsif условие3 then команды3

...

else командыN end;

порядок выполнения этого оператора в точности соответствует вышеприведённому каскаду простых операторов if-then-else, а отличие чисто формальное: вместо вложенных нескольких условных операторов эта конструкция является единым целым и содержит дополнительное ключевое слово elsif, требующее после себя очередное условие.

Программы которые мы выполняли на лабораторных занятиях :

program z1;

Var

x:real;

y:real;

Begin

write('vvedite x');

readln(x);

if(x>=0) theny:=sqrt(x)

elsey:=sqrt(abs(x));

writeln(y);

writeln(x);

end.

program z2;

Var

x:real;

y:real;

Begin

write('vvedite x');

readln(x);

if(x<=0) theny:=1

else if(x>0) and(x<1)

theny:= -x+1 elsey:=0;

writeln(y);

writeln(x);

end.

program z3;

Var

x:real;

y:real;

Begin

write('vvedite x');

readln(x);

if(x>=0) theny:=exp(sqr(x))

elsey:=sqr(x)+3*x;

writeln(y);

writeln(x);

end.

program z4;

Var

x:real;

y:real;

Begin

write('vvedite x');

readln(x);

if(x>=-1) and(x<=0) theny:=x+1 else if((x>=0) and(x<=1)) theny:=-x+1 else if(x<-1) theny:=0 else if(x>1)theny:=0;

writeln(y);

end.

program z5;

Var

x:real;

y:real;

Begin

write('vvedite x');

readln(x);

if(x>=-2) and(x<=0) theny:=-x-1 else if((x>=0) and(x<=2)) theny:=x-1 else if(x<-2) theny:=1 else if(x>2) theny:=1;

writeln(y);

end.

program z6;

Var

x:real;

y:real;

Begin

write('vvedite x');

readln(x);

if(x<-1) theny:=1 else if((x>=-1) and(x<=0)) theny:=-x else if(x>0) theny:=0.5*x;

writeln(y);

end.

program z7;

Var

x:real;

y:real;

Begin

write('vvedite x');

readln(x);

if(x<-1) theny:=1 else if((x>=-1) and(x<=0)) theny:=-x else if(x>0) theny:=0.5*x;

writeln(y);

end.