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

Вычислить значения функции. (Pascal). 35 балов

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

Const
  C = -5;
  M = 10;
  Step = 1.5;
Var x : Real;
Begin
  x:=C;
  Repeat
    Write(x = ,x:6:2,  L = );
    If x>5 then Writeln((x+x*x+x*x*x)/10:6:2) else
      If x<-1 then Writeln(sqr(sin(x))+abs(x):6:2) else
        Writeln(100:6);
    x:=x+Step;
  Until x>M;
end.