Определение корней уравнения Опции

[alina]

Задача: Определение корней уравнения, т.е. нахождение отрезков содержащих единственный корень.

Надо составить программу для

Код

f:=x-3
То есть надо найти x.
В программе надо использовать:
if f(a+h)=0 then writeln(x:0:3);
и это:
if f(a)*f(a+h)<0 then writeln(a:0:3,' ,(a+h):0:3);
и ЭТО:
while a<=b do
Также надо использовать ещё и это:
a:=a+h;
Также надо использовать ещё и это:
function f(x:real):real;
begin
f:=x-3;
end;