Помогите ....... Составить программу вычисления значений функции f (x) = е ^ (- x ) + Cos3x на отрезке [A; B] в точках Xi = A +
Помогите ....... Составить программу вычисления значений функции f (x) = е ^ (- x ) + Cos3x на отрезке [A; B] в точках Xi = A + iH, где H = (B-A) / M, а = 1, В = 4, М = 10.
Const a=1; b=4; m=10; var x,f,h:real; i:integer; begin h:=(b-a)/m; x:=a-h; for i:=0 to m do begin x:=x+h; f:=exp(-x)+cos(3*x); writeln(x:5:1,f:8:3); end; end.