Задание 2. Вложенные условные операторы

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

При решении таких задач нужно учесть, что условия на значения Х делят числовую ось на три интервала (в нашем случае точки деления Х=0 и Х=1), поэтому при реализации алгоритма используется вложенный условный оператор, блок-схема которого приведена на рис. 3.

Рис. 3. Блок-схема вложенного условного оператора

1. Запустите Turbo Pascal.

2. В окне редактирования наберите текст программы:

Program Uslovie_2;

var x, y: real;

begin

Writeln ('Введите значение х');

Read (x);

If x<0 Then y:=exp(-x+1)

Else If x>1 Then y:= 1/x+sin(x)

Else y:= Sin(x)/Cos(x);

Writeln ('При х=', x:4:2, 'y=', y:6:2);