Список использованных источников

1. 1. Лапчик, М.П. Численные методы: Учеб. пособие для студ. вузов / М.П.Лапчик, М.И.Рагулина, Е.К.Хеннер; Под ред. М.П.Лапчика. — 2-е изд., стер. — М.: Издательский центр «Академия», 2005. — 384 с.

2. 2. Сборник задач по методам вычислений: Учеб. С 23 пособие / Под ред. П. И. Монастырского.—2-е изд. —Мн.: Университетское, 2000.—311 с.

3. 3. Высшая документация – Online документация [электронный ресурс]. Режим доступа: http://ru.wikipedia.org/wiki/Mathematica

4. 4. Online документация [электронный ресурс]. Режим доступа: http://www.pts-russia.com/products/mathcad.htm

5. 5. Высшая документация – Online документация [электронный ресурс]. Режим доступа: http://ru.wikipedia.org/wiki/MATLAB

6. 6. Высшая документация – Online документация [электронный ресурс]. Режим доступа: http://ru.wikipedia.org/wiki/XLS

7. 7. Высшая документация – Online документация [электронный ресурс]. Режим доступа: http://ru.wikipedia.org/wiki/Turbo_Pascal

8. 8. Ханова, А.А. Численное решение уравнений и систем уравнений [электронный ресурс]. Режим доступа: http://www.exponenta.ru/educat/systemat/hanova/equation/math.asp

9. Иллюстрированный самоучитель по Mathematica. Online документация [электронный ресурс]. Режим доступа: http://computers.Plib.Ru/m ath/Book_Matematica/gl4/Index7.HtmПриложения

Листинг примера 1

Uses crt;

Var x,y,xn,yn,d,e,f,g,h,i:real;

BEGIN

Writeln('Решим систему уравнений методом простой итерации.');

Readln;

Writeln('Введите начальное значение х');

Readln(x);

Writeln(''Введите начальное значение y');

Readln(y);

Writeln('Введите точность определения корня');

Readln(e);

xn:=x; yn:=y;

d:=(2*x)/5; f:=(2*y)/5;

g:=(2*x)/5; h:=(-2*y)/5;

If (d+f+g+h)<1 then

writeln('Требование сходимости итерационного процесса выполняется')

else writeln('Требование сходимости итерационного процесса не выполняется ');

Readln;

Repeat

BEGIN

x:=xn; y:=yn;

xn:=(x*x+y*y)/5+0.200; yn:=(x*x-y*y)/5+0.400;

i:=i+1;

END;

until (ABS(xn-x)<=e) and (ABS(yn-y)<=e);

if (d+f+g+h)<1 then writeln(' Мы получили ответ x=',xn:0:2,' y=',yn:0:2,

' на ',i:0:0,'шаге итерации.') else Writeln('Нет решений');

Readln;

END.

Листинг примера 2

Uses crt;

Var x,y,m,n,d,e,f,g,h,i:real;

BEGIN

Writeln('Решим систему уравнений методом простой итерации.');

Readln;

Writeln('Введите начальное значение х');

Readln(x);

Writeln(''Введите начальное значение y');

Readln(y);

Writeln('Введите точность определения корня');

Readln(e);

m:=x;n:=y;

d:=(x*x)/2; f:=(y*y)/2; g:=(x*x)/2; h:=(-y*y)/2;

If (d+f+g+h)<1 then

writeln('Требование сходимости итерационного процесса выполняется')

else writeln('Требование сходимости итерационного процесса не выполняется ');

Readln;

Repeat

BEGIN

x:=m;y:=n;

m:=(x*x*x+y*y*y)/6+0.500; n:=(x*x*x-y*y*y)/6+0.333; i:=i+1;

END;

until (ABS(m-x)<=e) and (ABS(n-y)<=e);

If (d+f+g+h)<1 then writeln(' Мы получили ответ x=',m:0:3,' y=',n:0:3,

' на',i:0:0, 'шаге итерации.') else Writeln('Нет решений');

Readln;

END.