Лабораторная работа №2. Вычислительная математика. Вариант №7. ДО СибГУТИ.

Условие задания:
Привести систему к виду, подходящему для метода простой итерации. Рассчитать аналитически количество итераций для решения системы линейных уравнений методом простой итерации с точностью до 0.0001 для каждой переменной.
Написать программу решения системы линейных уравнений методом простой итерации с точностью до 0.0001 для каждой переменной. Точность достигнута, если (k – номер итерации, k = 0,1,1⁄4 ). Вывести количество итераций, понадобившееся для достижения заданной точности, и приближенное решение системы. Система уравнений

N – последняя цифра пароля, N=7.
Подставляя N, получим:
...................

ЛИСТИНГ ПРОГРАММЫ
program labor_2;
uses crt;
const
N=7;
E=0.0001;
type
Tmas=array[1..4,1..4] of real;
Tresult=array[1..4] of real;
var
Mas,C:tmas;
B:Tresult;
i,j:integer;
S,Sx,Bmax,Cmax:real;
begin
clrscr;
{вводим матрицу по условию}
Mas[1,1]:=0.95+0.1*N;
Mas[1,2]:=0.26+0.1*N;
mas[1,3]:=-0.17+0.1*N;
Mas[1,4]:=0.27+0.1*N;
..................

Оценка: "Зачет"
Проверил: Галкина М. Ю.