Метод половинного деления - Pascal ABC (16823)
Формулировка задачи:
Помогите пожалуйста начинающей девушке не чего не понимающей в програмировании
Отыскание корня уравнения F(x)=0 на интервале (А,В) с точность Е
А=0
В=1
Е=10(в -2 степени)
х(в 4 степени)+2х(в 3 степени)-х-1
Заранее огромное спасибо!!!
Решение задачи: «Метод половинного деления»
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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д