D - частота дискретизации, А - объем, I - разрешение, t - время соответственно.
У меня это получилось сделать так:
//PascalABC.NET
var
n, k : integer;
x, s : real;
begin
write('x = ');
readln(x);
write('n = ');
readln(n);
s := 0;
for k := 1 to n do
s += ((power(x,1/3)/k - exp(-k*x)) * sin(k * x));
writeln(' res = ', 1 / (x*x + sqrt(x)) * s)
end.
Var
i,x1,x2:integer;
y:real;
begin
writeln('введите х нач и х конечное');
readln(x1,x2);
writeln('введите шаг для х');
readln(i);
while x1<=x2 do
begin
if sin(x1)/Cos(x1)<>0 then
begin
y:=(Sin(x1)+2*Cos(x1))/(Sin(x1)/Cos(x1));
writeln(x1:4,y:10:2);
end;
x1:=x1+i;
end;
end.