Метод половинного деления - Pascal ABC (16823)

Формулировка задачи:

Помогите пожалуйста начинающей девушке не чего не понимающей в програмировании Отыскание корня уравнения F(x)=0 на интервале (А,В) с точность Е А=0 В=1 Е=10(в -2 степени) х(в 4 степени)+2х(в 3 степени)-х-1 Заранее огромное спасибо!!!

Код к задаче: «Метод половинного деления - Pascal ABC (16823)»

textual
uses crt;
function F(x:real):real;
begin
F:=x*x*x*x+2*x*x*x-x-1
end;
function Bis(a,b,e:real):real;
var c:real;
begin
repeat
   c:=(a+b)/2;
   if F(a)*F(c)<=0 then b:=c
   else a:=c;
until abs(b-a)<e;
Bis:=(a+b)/2;
end;
var a,b,e:real;
begin
a:=0;
b:=1;
e:=0.01;
writeln('Решение уравнения x^4+2x^3-x-1=0');
writeln('на интервале [0;1] с погрешностью 0.01');
writeln('x=',Bis(a,b,e):0:2);
end.

12   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ