Программирование линейных вычислительных процессов с использованием операторов, реализующих базовые структуры ветвения. Вариант № 3, страница 2

y:=ln(5-x) else if (x=-5) or (x=6) then y:=sqr(x-2) else y:=sin(x-2)/cos(x-2);

Writeln('x=',x:3,'  y:=',y:4:2)

end.

Ответ:

Введите значение x-7 ;x= -7  y:=0.45

Введите значение x –5; x= -5  y:=49.00

Введите значение x –2 ;x= -2  y:=0.00

Введите значение x 4 ;x=  4  y:=0.00

Введите значение x 7 ;x=  7  y:=-3.38

Решение: Б

Program Prim4;

var x:integer; y:real;

Begin writeln('Введите значение x'); readln(x); case x of -3..0:y:=sin(2+x); 1..5:y:=ln(5-x);-5,6:y:=sqr(x-2); else y:=sin(x-2)/cos(x-2);

end;

Writeln('x=',x:3,'  y:=',y:4:2)

end.

Ответ:

Введите значение x –7; x= -7  y:=0.45

Введите значение x –5 ;x= -5  y:=49.00

Введите значение x –2 ;x= -2  y:=0.00

Введите значение x 4 ;x=  4  y:=0.00

Введите значение x 7 ;x=  7  y:=-3.38

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