Задачи по численным методам. Решить уравнение методом простой итерации

@tata_09 · Регистрация: 27.01.2012

Author24 — интернет-сервис помощи студентам

1.Решить уравнение 3x3-2x2-x-20=0 методом простой итерации c точностью =10-6;

Нужно сделать с помошью паскаля.

Помогите пожалуйста, не могу получить зачет

@BumerangSP · 10.06.2012, 17:59

Pascal

uses crt;
const max_iter=100;
var a,b,e,M,x0: real;
    k: integer;
    
function f(x: real): real;
begin
 f:=3*x*x*x-2*x*x-x-20;
end;
 
begin
 clrscr;
 a:=-2;
 b:=2;
 e:=0.000001;
 k:=0;
 while (abs(a-x0)>=e)or(k>max_iter) do
  begin
   M:=-(F(a+e)-F(a-e) )/(2*e);
   x0:=a;
   a:=x0+F(x0)/M;
   inc(k);
   writeln('c=', a:3:2,' f(c)=',f(a):3:2);
  end;
 if (abs(a-x0)<=e) then
  writeln('C=', a:3:2,' Iteratsiy: ',k)
  else
   writeln('Answer not found!');
 readln;
end.

@tata_09 · 10.06.2012, 19:07 **[ТС]**

Спасибо!

@tata_09 0 / 0 / 0 Регистрация: 27.01.2012 Сообщений: 7
		1
	Задачи по численным методам. Решить уравнение методом простой итерации 10.06.2012, 13:04. Показов 3058. Ответов 2 Метки нет (Все метки) 1.Решить уравнение 3x3-2x2-x-20=0 методом простой итерации c точностью =10-6; Нужно сделать с помошью паскаля. Помогите пожалуйста, не могу получить зачет 0

@tata_09 0 / 0 / 0 Регистрация: 27.01.2012 Сообщений: 7
	10.06.2012, 19:07 [ТС]	3
	Спасибо! 0

Задачи по численным методам. Решить уравнение методом простой итерации

Решение