Решение линейного алгебраического уравнения, Метод итераций Опции

[dron4ik]

Суть задания:
Решить линейное алгебраическое уравнение второго порядка( я взял 2*x*x+1*x-3) методом итераций
1. Разработать программу для решения с заданной точностью системы линейных алгебраических уравнений методом итераций; --- ЭТО Я ВРОДЕ КАК СДЕЛАЛ НО НЕЗНАЮ ПРАВИЛЬНО ЛИ???(Листинг проги внизу)
2. Произвести уточнение найденного решения; ----- КАК ЭТО ДЕЛАЕТСЯ НЕЗНАЮ ПОМОГИТЕ ПОЖАЛУЙСТА
3. Оценить погрешности вычислений; --- А КАК ОЦЕНИВАЕТСЯ ПОГРЕШНОСТЬ????? это похоже нужно делать вручную


Написал код программы который решает методом итераций но я точно незнаю этот ли метод использую в коде.
Код работает правильно. Но у меня трудность как можно


program piui;

{$APPTYPE CONSOLE}
function f(x: real): real;



begin
f := 2*x*x+1*x-3;
end;

var
x, y: real;
found: boolean = false;

begin
x := -2;
while x <= 2 do begin
y := f(x);
if abs(y) < 0.001 then begin
writeln('X = ', X:12:6, ' Y = ', Y:12:6); found := true;
end;
x := x + 0.0005;
end;

if not found then writeln('no roots...');
readln;
end.

end.

[Account]

не понятно точно какое уровнение ты написал в начале либо 2*x*x-x-3 либо 2*x*x-1*(x-3)
Если первое, то вот что я сделал

uses crt;
function kor(x,b,eps:real):real;
var
y,d_y:real;
begin
y:=x-((2*sqr(x)-x-3)/(4*x-1));
x:=x+0.0001;
d_y:=x-((2*sqr(x)-x-3)/(4*x-1));
while (x<=2) do
begin
if (abs(d_y-y) < eps) then begin writeln('Корень = ',x:5:5, ' точность= ',abs(d_y-y):5:10); x:=x+0.1; end;
y:=d_y;
x:=x+0.0001;
d_y:=x-((2*sqr(x)-x-3)/(4*x-1));
end;
begin
clrscr;
kor(-2,0,10E-8);
readkey;
end.

Работать будет только для упомянутого уравнения
Два корня с точностю 10E-8
Метод Ньютона со смекалкой))))

Сообщение отредактировано: Account - 4.01.2009 2:49