Паскаль отделение корней уравнения с использованием графической оценки

[izi2000]

Выполните отделение корней уравнения с использованием графической оценки. Разработайте программу, выполняющую уточнение корней методом дихотомии на найденном промежутке с точностью до 0.0001. Выведите на экран значения корней на каждой итерации, при достижении требуемой точности вывести количество выполненных итераций и уточненное значение корня.5^x+3∗x=0

ОООчень срочно надо !!!! Спасибо всем. Нужна еще блок схема

[k0tone]

к 22:00 закину программку...

[k0tone]

Лови:

program method_Dichotomy;

 uses
   crt;

 var
   a,b,e,x:real;

 function f(x:real):real;
 begin
   f:=exp(ln(5)*x)+3*x;
 end;

 procedure Dichotomy(a,b,e:real; var x:real);
 var it:integer;
 begin
   it:=0;
   if f(a)*f(b)<=0 then
     begin
       repeat
         x:=(a+b)/2;
         it:=it+1;
         if f(b)*f(x)<=0 then a:=x else b:=x;
         writeln('iteracija',it:3,'         x=',x:9:5);
       until (b-a)<e;
       x:=(a+b)/2;
       writeln('--------------------------------------');
       writeln('Kol-vo iteracij ',it,'   x=',x:9:5);
     end
   else write('Zadayte drugoy interval!')
 end;

 begin
 clrscr;
 a:=-1; b:=0;
 e:=0.0001;
 writeln('Graficheski opredelen interval [-1;0]:');
 writeln('Tochnost vychislenij=',e:1:4);
 writeln('--------------------------------------');
 writeln('Nahozhdenie kornja:');
 writeln('--------------------------------------');
 Dichotomy(a,b,e,x);
 writeln('--------------------------------------');
 readkey;
 end.

P.S. вот график твоей функции (с осью ОХ имеет одно пересечение, следовательно один корень.)... интервал берётся на глаз (естественно чтоб корень попадал в него). Я взял [-1;0].
1.jpg
P.P.S. Со временем добавлю блок схему...
блок-схема.doc
P.P.P.S. не знаю надо ли рисовать для функции или нет, а так всё остальное правильно.

[izi2000]

Спасибоооо !!!!!!!!!!!!!1 все просто супер !!!!!!!!!!!!!!!!!