Программа, решаюшая уравнение

[RegnaM]

Всем добрый день, необходимо решить уравнение вида f(x)=2^x-4x методом хорд.
Нужен алгоритм и программа.

Хоть убей, не понимаю я, как сделать это, вся надежда на вас.

Если надо, могу сбросить набросок программы, где надо подкорректировать само решение.

[compres]

Скидывай набросок, посмотрю.

[Stilet]

Вот из моего архива:

function f(x:Double):double;
begin
    f:=exp(x*ln(2))-4*x;
end;

// a, b - пределы хорды, epsilon - необходимая погрешность
function findRoot(a,b,epsilon:double):double ;
begin
    while abs(b - a) > epsilon do begin
        a := b - (b - a) * f(b)/(f(b) - f(a));
        b := a - (a - b) * f(a)/(f(a) - f(b));
    end;
    findRoot:=b;
end;

begin
 write(findroot(1,3,0.3):5:2);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

подстроил под твою задачу

[RegnaM]

Program Metod_Chord;
uses crt;
var x,E,a,b,c:real;
n:integer;
Otv:text;
Function f(x:real):real;
Begin
f:=exp(x*ln(2))-4*x;
End;
Function Chord(a,b:real):real;
Begin
Chord:= a-((b-a)*f(a)/(f(b)-f(a)));
End;
begin
clrscr;
writeln('Vvedite a');
write('a=');readln(a);
writeln('Vvedite b');
write('b=');readln(b);
writeln('Vvedite pogreschnost');
write('E=');readln(E);
repeat
c:=Chord(a,b);
If f(a)*f(c)>0 Then a:=c Else b:=c;
Until abs(chord(a,b)-c)<E;
x:=c;
Write('otvet x=');writeln(x);
Assign(Otv,'Rezultat.txt');
Rewrite(Otv);
Writeln(Otv,'x=',x:5:5);
Close(Otv);
readkey;
end.