PascalABC.Net Метод итераций для решения систем линейных уравнений

[now2]

Сообщение от Streletz

Так эту программу Вам вроде бы уже сделали в Вашей предыдущей теме Решение системы методом Гаусса-Жордана / PascalABC.NET?

надо методом итераций теперь

[ZX Spectrum-128]

Метод простой итерации (или метод якоби?).
Яндекс дал кучу решений. Ищите.

[Streletz]

Сообщение от now2

надо методом итераций теперь

Тогда зачем Вы пишите в этой теме, что нужно сделать методом Гаусса-Жордана?
Возможно, Вы просто путаете 2 метода (Гаусса-Жордана и простых итераций)?..

[now2]

Сообщение от Streletz

Тогда зачем Вы пишите в этой теме, что нужно сделать методом Гаусса-Жордана?
Возможно, Вы просто путаете 2 метода (гаусса-Жордана и простых итераций)?..

не путаю , мне надо и так и так двумя методами

[Streletz]

Сообщение от now2

не путаю , мне надо и так и так двумя методами

Если надо 2мя способами, то делайте 2мя.

[now2]

Сообщение от Streletz

Если надо 2мя способами, то делайте 2мя.

делаю , методом итераций не знаю как делать

[Streletz]

Сообщение от now2

делаю , методом итераций не знаю как делать

Откройте учебник. В крайнем случае материалов в сети полно. Все они гуглятся с 1го раза и без проблем.Вот один из них для примера

[now2]

Задания
I. Напишите программу решения системы линейных уравнений
методом итераций с наперед заданной точностью.
II. Приведите примеры таких систем с преобладающими
диагональными элементами, после приведения которых к
итерационному виду, при их решении методом итераций
используется первая метрика, вторая метрика, систем, к которым
метод итераций не применим. Решите эти системы линейных
уравнений методом итераций с наперед заданной точностью и
осуществите проверку найденного решения. Обоснуйте
правильность полученных результатов.

Я НАПИСАЛА ПРОГРАММУ ДЛЯ ПЕРВОГО ЗАДАНИЯ ПРОВЕРЬТЕ ПОЖАЛУЙСТА ТАК ПОЛУЧИЛОСЬ ИЛИ НЕТ
program b5;
uses crt;
const n=4;
var A: array [1..n,1..(n+1)] of real;
i,j,a1,a2:integer;
maxm,m:real;
label 1,2;
procedure f(b1:integer);
var B:array [1..n] of real;
max:real;
begin
for j:=1 to n do
for i:=1 to n do
B[j]:=B[j]+A[i,j];
b1:=B[1];
for j:=1 to n do
if b1<B[j] then b1:=B[j];
end;
procedure f1(b1:integer);
var B:array [1..n] of real;
max:real;
begin
for i:=1 to n do
for j:=1 to n do
B[i]:=B[i]+A[i,j];
b1:=B[1];
for i:=1 to n do
if b1<B[i] then b1:=B[i];
end;
begin
clrscr;
writeln('vvedite matricu');
for i:=1 to n do begin
for j:=1 to n+1 do
[read(A[i,j]);
writeln;
end;
For i:=1 to n do begin
for j:=1 to n+1 do
A[i,j]:=A[i,j]/A[i,i];
A[i,i]:=0; end;
f(a1);
f1(a2);
if (a1<1) and (a2>1) then goto 1 else
if (a2<1) and (a1>1) then goto 2 else begin writeln('vihod is progi); goto 3; end;
1:
readkey;
end.

[Streletz]

ТАК ПОЛУЧИЛОСЬ ИЛИ НЕТ

Запустите программу и получите результат. Подставьте его в исходную систему уравнений.
Если все без исключения уравнения становятся верными равенствами, то всё нормально. Если нет, то ищите ошибку в алгоритме.
Вот и вся проверка.

[now2]

program metod_prostoi_iterachii;
label 1;
var
a,x:array[1..200,1..200] of real;
b:array[1..200] of real;
n,i,j,q,k:integer;
sum, max,p,e:real;
begin
writeln(' введіть к-ть невідомих n<200');
read(n);
writeln(' введіть ел. матриці А ');
for i:=1 to n do
for j:=1 to n do
begin
readln(a[i,j]);
end;
writeln(' введіть ел. в-ра b');
for i:=1 to n do
begin
readln(b[i]);
end;
writeln(' введіть відносну похибку');
readln(e);
q:=0;
for i:=1 to n do
begin
sum:=0;
for j:=1 to n do
if j<>i then sum:=sum+a[i,j];
if a[i,i]>sum then q:=q+1;
end;
if q<>n then writeln('Iтераційний процес розбіжний')
else
begin
for i:=1 to n do
x[i,1]:=b[i]/a[i,i];
k:=2;
1 : for i:=1 to n do
begin
x[i,k]:= x[i,1];
for j:=1 to n do
if i<>j then
x[i,k]:= x[i,k]+(-a[i,j]/a[i,i])*x[j,k-1];
end;
max:=abs(x[1,k]-x[1,k-1]);
for i:=2 to n do
if abs(x[i,k]-x[i,k-1])>max then
max:=abs(x[i,k]-x[i,k-1]);
p:=x[1,k];
for i:=2 to n do
if abs(x[i,k])>p then
p:=abs(x[i,k]);
if max/p>e then
begin
k:=k+1;
goto 1;
end
else
begin
writeln('розвязок СЛАР:');
for i:=1 to n do
writeln('x[',i,']=',x[i,k]:4:7);
end;
end;
end.
ВОТ ЕЩЕ ОДИН КОД НО НЕ ПОНЯТНО ЧТО ТУТ К ЧЕМУ ОБЪЯСНИТЕ ПОЖАЛУЙСТА