графика для метод половинного деления

[Nobel]

здравствуйте не знаю как написать код графики для метод половинного деления. Если кто сможет помогите

program Khan;
var a,b,e,c,x:real;
function f(x:real):real;
begin
f:=exp(x*ln(5))-6*x-3;
end;
begin
a:=1;
b:=2;
writeln('e=');
read (e);
c:=(a+b)/2;
while abs(b-a)>e do
begin
if f(a)*f(c)<0 then b:=c else a:=c;
c:=(a+b)/2;
end;
x:=(a+b)/2;
writeln ('x=',x:3:3,'   f(x)=',f(x):4:4);

readln
end.

[Nobel]

народ помогите пожалуйста

[Mad_Cat]

народ помогите пожалуйста

прошло всего 32 минуты=> не все сразу=> не стоит терять надежду))

[Nobel]

Сообщение от Mad_Cat

прошло всего 32 минуты=> не все сразу=> не стоит терять надежду))

ну если много пройдет то надежда на помощь пропадает

[Nobel]

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

program 311;
uses crt,graph;
var
  k,i,gd,gm,x0,y0: integer;
  a,b,c,x,mx,my: real;
  v:array[1..100] of real;
  s:string;
function Fx(x: real): real;
begin
  FX := cos(2/x)-2*sin(1/x)+1/x;
end;
 
begin
  clrscr;
  a := 1; b := 2;
  Writeln('   RESHENIE URAVNENIYA METODOM POLOVINNIGO DELENIYA');
  c := abs(b-a);
  k := 0;
  while (c>0.0001) do
  begin
    inc(k);
    x := (a+b)/2;
    v[k]:=x;
    if fx(x)*fx(a) > 0 then a := x;
    if fx(x)*fx(b) > 0 then b := x;
    c := abs(b-a);
  end;
  writeln('   Chislo iteracii dlya metoda polovinnogo deleniya    ',k);
  writeln('   Koren uravneniya   ',x:0:4);
writeln('Rezultaty vychislenij:');
for i:=1 to k do
write(v[i]:7:4);
readkey;
gd:=0;
initgraph(gd,gm,'');
x0:=30;
y0:=getmaxY-30;
mx:=(getmaxX-60)/(k-1);
my:=(getmaxY-60)/100;
line(x0,y0,getmaxX-30,y0);
for i:=1 to k do
 begin
  line(x0+round((i-1)*mx),y0+3,x0+round((i-1)*mx),y0-3);
  str(i,s);
  outtextXY(x0+round((i-1)*mx)+5,y0+5,s);
 end;
line(x0,y0,x0,30);
for i:=1 to 9 do
 begin
  line(x0-3,y0-round(10*i*my),x0+3,y0-round(10*i*my));
  str(i,s);
  outtextXY(x0-25,y0-round(10*i*my),'1.'+s);
 end;
outtextXY(x0-25,y0,'1.0');
line(x0-3,y0-round(100*my),x0+3,y0-round(100*my));
outtextXY(x0-25,y0-round(100*my),'2.0');
moveto(x0,y0);
for i:=1 to k do
 begin
  setcolor(4);
  lineto(x0+round((i-1)*mx),y0-round((v[i]-1)*my*100));
  setcolor(7);
  circle(x0+round((i-1)*mx),y0-round((v[i]-1)*my*100),2);
 end;
readkey
end.

[Mad_Cat]

функцию свою подставь)
в найденном

 FX := cos(2/x)-2*sin(1/x)+1/x;

у тебя

fx:=exp(x*ln(5))-6*x-3;

[Nobel]

я это уже пробовал .. рисует один и тот же график

[Nobel]

может поверишь код