Question

Реализовать вычисление значений функции y(x) с использованием условия (если_то_иначе). При необходимости воспользуйтесь справочной информацией. Значения параметра х (по одному значению для каждого промежутка) задать самостоятельно.

Answer 1

{Pascal ABC.NET}

var a,b,s,y:integer;

       x,c:integer;

begin

a:=-0.0025;

b:=-2.7;

c:=3;

read(x);

if x<=-2 then write(((a*a*b)/9)-abs(x))

else if (x>-2) and (x<4) then write(4*(a*a*a*x*x-c*c))

else begin

          s:=(a*a-2*a*b+b*b)+x*x;

          y:=tan(s);

          write(y);

         end;

end.