Помогите написать подпрограмму f(x), которая вычисляет значение по следующей формуле:...

Question

Помогите написать подпрограмму f(x), которая вычисляет значение по следующей формуле: f(x)=x^3 - sinx. Построить таблицу значений функций для отрезка [a;b]
с шагом h. НА ПАСКАЛЕ

Answer 1

Function f(x: real): real;
begin
  f := x * sqr(x) - sin(x)
end;

var
  a, b, h, x: real;

begin
  Write('Введите через пробел a,b,h: ');
  Readln(a, b, h);
  x := a;
  while x <= b do<br>  begin
    Writeln('x=', x:0:3, ', f(x)=', f(x):0:5);
    x := x + h
  end
end.