Решение СЛАУ методом итерации (Pascal)

[mambr]

Задание: разработать программу, реализующую для приведенной линейной системы n вычисление значений неизвестных.



Не могу понять как расписать циклы по этим формулам.

[sllh_111]

решение СЛАУ методом Крамера

{Метод Крамера}
 procedure kr(var m5:mas;q:integer;m7:mas1);
 var
 i,j,k:integer; m6:mas; d,d1:real; m8:mas1;
 begin
 writeln('Введите неизвестные : ');
 readln(q);
 writeln('Введите коофиценты : ');
 for i:= 1 to q do
 for j:= 1 to q+1 do
 read(m5[i,j]);
 writeln;  clrscr;
 for i:= 1 to q do
  for j:= 1 to q do
 m6[i,j]:=m5[i,j];
 writeln;
 opred(m6,d1); Writeln('Главный опр: ',d1:3:1);
 Writeln('Дополнительные определители системы:  ');
 for j:=1 to q do
    begin
    for i:= 1 to q do
    begin m8[i]:=m6[i,j];
    m6[i,j]:= m5[i,q+1];
     end;  opred(m6,d); Writeln(d:3:1);
    for k:= 1 to q do   m6[k,j]:=m8[k];
    m7[j]:= d/d1; {writeln(m7[j]:2:1);}
    writeln;  end;
    writeln('Решение СЛУ: ');
    for j:= 1 to q do
    writeln(m7[j]:2:1);
      readkey; end;

[mambr]

Что то не понял, при чем тут Крамер к простой итерации. (Крамера не изучал)...
Нужно сделать именно по тем формулам что выше (

[Serebro]

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

Что то не понял, при чем тут Крамер к простой итерации. (Крамера не изучал)...
Нужно сделать именно по тем формулам что выше (

Какие формулы? Где??????

[mambr]

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

 procedure kr(var m5:mas;q:integer;m7:mas1);

Unknown identifier

[CodeExpert]

program kr;
type mas:array[1..100,1..100];//общий тип
var m5:mas;
q:integer;
m7:mas1;
i,j,k:integer;
m6:mas;
d,d1:real;
m8:mas1;
begin
writeln('Введите неизвестные : ');
readln(q);

writeln('Введите коофиценты : ');

for i:= 1 to q do begin
for j:= 1 to q+1 do begin
read(m5[i,j]);
writeln; clrscr;
for i:= 1 to q do
for j:= 1 to q do
m6[i,j]:=m5[i,j];
writeln;
opred(m6,d1); Writeln('Главный опр: ',d1:3:1);
Writeln('Дополнительные определители системы: ');
for j:=1 to q do
begin
for i:= 1 to q do
begin m8[i]:=m6[i,j];
m6[i,j]:= m5[i,q+1];
end; opred(m6,d); Writeln(d:3:1);
for k:= 1 to q do m6[k,j]:=m8[k];
m7[j]:= d/d1; {writeln(m7[j]:2:1);}
writeln; end;
writeln('Решение СЛУ: ');
for j:= 1 to q do
writeln(m7[j]:2:1);
readln;
end;

Думаю так было бы правильнее для паскаля, но работать оно НЕ БУДЕТ, т.к. sllh_111 привел всего лишь кусок кода - процедуру из программы на делфи..,здесь так же встречается процедура opred - для подсчета определителя.. Разобрался, но я уже сонный, постепенно впадают в состояние гибернации, так что вот так вот..

[mambr]

А есть у кого алгоритм для Паскаля, простой итерацией...
Взял тест пример, на листочке посчитал, выходит ~25 приближений.

[sllh_111]

CodeExpert
ну во первых прога на паскале и полностью работает, во вторых это кусок проги и я с этим не спорю я привёл так для примера и если надо могу полную выложить.

mambr
метод Крамера предназначен для решения СЛАУ и тоже вполне подходить,
если надо могу подкинуть литературу. Только формул твоих не видно.

[mambr]

Ну тема создана в разделе помощь студенту и нужно именно самой простой итерацией, по условию.
Формулы после обеда залью заново.

[Маха2186]

Товарищи программисты!!!! Помогите пожалуйста решить систему линейных уравнений методом простых итераций.
0,46х1+1,72х2+2.53х3=2.44
1.53х1-2.32х2-1.83х3=2.83
0.75х1+0.86х2+3.72х3=1.06
Если не сложно, то ответ вышлите на e-mail: maxa2186@mail.ru