Вывести значение функции на промежутке [a..b] c шагом 0.5, вывод результата оформить в виде таблицы, организовать повтор программы, используя цикл с постусловием. Функция power((exp(x+1)-sin(x)),1/3)
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.
Answers & Comments
Verified answer
Vara, 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.