Ошибка в методе Ньютона
 

Пишет Вещественное деление на 0, сама программа выглядит так:

uses Crt;
var x,a,b,e: real;
function f1(d: real): real;
begin
f1:=(x-2)*(x-2)*2*x-1;
end;
function f2(d:real): real;
begin
f2:=6*x*x-16*x+8;
end;
begin
Clrscr;
a:=0.4;
b:=2;
e:=0.001;
if f1(a)*f2(a)>0 then x:=a
else x:=b;
while abs(f1(x))>e do
begin
x:=x-f1(x)/f2(x);
end;
Writeln ('x=',x,' f(x)=',f1(x));
Readln
end.

Буду благодарен за помощь!

Легко. Всё правильно, кроме того, что в ТЕЛЕ обеих функций аргументом должно быть d, а не x. Раз уж в заголовке стоит d. С учетом этого и еще пары мелких поправок:
Результат работы программы:

Тааак, извините, могли бы объяснить почему d? что-то я не понимаю...

И еще вопросик, почему х не попадает в заданный интервал?

Потому что так Вы назвали (в шапке функции) формальный параметр. При обращении к функции он заменяется фактическим "х". Но в теле функции должен стоять именно формальный.Знаете - я вообще не понимаю смысла интервала, равно как и метода выбора стартовой точки. В принципе, стартовой может быть любая точка не очень далеко расположенная от ожидаемого значения решения, лишь бы там не было корней производной.

С d разобрался... А почему он пишет ответ 0.14, а не 1.45 например, на графике видно что там есть как этот корень, так и другой, да и метод дихотомии выдает ответ 1.45.
P.S. Извините если вопросы кажутся абсурдными, просто только учусь, и хотелось бы понимать что написанно.

Точнее
А есть и третий корень - чай, уравнение-то кубическое!
Все три корня можно получить, задавая исходную точку где-то в окрестности каждого из них. Вот поэтому прежде, чем численно решать уравнение, нужно его исследовать, в простейшем случае - построить график да и посмотреть, где корень, единствен ли он, а если их несколько - какой нужен и т.п. В нашем случае график выглядит так:

А что считать исходной точкой в программе? я так понимаю точку а=0,4?

Да почему же? ЛЮБУЮ точку где-то поблизости от предполагаемого корня (находится, например, по графику). Вот Вам вариант программы, выдающий все три корня - и причем вообще безо всяких a и b: