Суть задания:
Решить линейное алгебраическое уравнение второго порядка( я взял 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.
Решение линейного алгебраического уравнения, Метод итераций |