Question

Помогите сделать,нужно в паскале

Answer 1

// PascalABC.NET 3.3, сборка 1552 от 20.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (xn,xk,dx,a):=(-3.0,3.0,0.6,2.62);
  var fun:real->real:=x->Power(1/(7+x),1/3)/(14.5+Log(a*a+3));
  var n:=Trunc((xk-xn)/dx)+1; // количество точек
  var (s,p):=(0.0,1.0);
  for var i:=1 to n do begin
    var x:=xn+(i-1)*dx;
    var z:=fun(x);
    if i mod 3=0 then Writeln(x:4:1,z:20:9);
    if z<a then p*=z else s+=z;
    end;
  var F:=p+s;
  Writeln('F=',F)
end.

Результат
-1.8         0.034380259
 0.0         0.031137058
 1.8         0.028850236
F=3.08194173508216E-17