Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Помогите пожалуйста решить систему уравнений в паскале .
3x x<-1
y= sinx-cosx -1 x*x+1/2x-7 x>1

Ответ оставил Гость

Var x,y :real;
begin
  write(Введите значение x=);
  readln(x);
  if (x>-3) and (x<5) then
   begin
    if x<-1 then y:=3*x
           else if x<1 then y:=sin(x)-cos(x)
                       else y:=x*x+1/2*x-7;
    writeln(При x=,x,  y=,y)
    end
    else writeln(При x=,x, функция не определена)
end.