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

Question

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

---

Answer 1

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<br>        Writeln(100:6);
    x:=x+Step;
  Until x>M;
end.