Question

Доброго времени суток. задание во вложениях

Answer 1

PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (a,h,b):=(-0.1,0.02,0.1);
  var y:real->real:=t->t<=0 ?
      Sqr(Sin(9*t-3))+0.7*t :
      5*Cos(25*t+0.37)**3-5*t*t;
  var x:=a;
  while x<=b+h/2 do begin
    Writeln(x:5:2,y(x):15:10);
    x+=h
    end
end.

Пример
-0.10   0.4030222897
-0.08   0.2428711009
-0.06   0.1085059147
-0.04   0.0189480905
-0.02  -0.0125256009
 0.00   4.0520544419
 0.02   1.3385985058
 0.04   0.0316707402
 0.06  -0.1460479966
 0.08  -1.8734753767
 0.10  -4.5200806881

2. Более "традиционное" решение

const
  a=-0.1;
  h=0.02;
  b=0.1;

var
  x,y:real;

begin
  x:=a;
  while x<=b+h/2 do begin
    if x<=0 then
      y:=Sqr(Sin(9*x-3))+0.7*x
    else
      y:=5*(Cos(25*x+0.37))*Sqr(Cos(25*x+0.37))-5*x*x;
    Writeln(x:5:2,y:15:10);
    x+=h
    end
end.