Return 0;

}

//---------------------------------------------------------------------------

Метод простых итераций

Порядок выполнения:

Найти нулевое приближение решения;

Преобразовать систему f(x) = 0 к виду х = Ф(х);

Проверить условие сходимости метода.

Схема алгоритма приведена на рисунке 1.

Пример. Решить методом простых итераций систему

В качестве нулевого приближения выберем точку х=1, у = 2.2, z = 2. Преобразуем систему к виду

Текст программы:

Uses Crt;

type mas=array [0..1] of comp;

Var

x10,x20,e,max: real;

fii,x:mas;

{____________________________________}

function f(x1,x2: real): real;

Begin

f:=x1*ln(x2)-x2*ln(x1);

End;

{____________________________________}

function fi(x1,x2: real;var fii:array of comp): real;

Begin

fii[0]:=exp(1/3*ln(8*x1*x2-(x2*x2*x2)));

fii[1]:=x2+x2/ln(x2)-x1/ln(x1);

End;

{____________________________________}

function iter(x10,x20: real;var x:array of comp): real;

var x1,x2:real;

n:integer;

Begin

n:=0;

Repeat

x1:=x10;

x2:=x20;

n:=n+1;