Вывести значение функции ** промежутке [a..b] c шагом 0.5, вывод результата оформить в...

Question

Вывести значение функции на промежутке [a..b] c шагом 0.5, вывод результата оформить в виде таблицы, организовать повтор программы, используя цикл с постусловием.
Функция power((exp(x+1)-sin(x)),1/3)

Answer 1

Var
  a, b, f, x: real;
begin
  read(a, b);
  x := a; writeln('x:', '':6, 'f(x):');
  repeat
    f := power((exp(x + 1) - sin(x)), 1 / 3);
    writeln(x:0:1, '':5, f:0:8);
    x := x + 0.5;
  until (x > b)
end.