Читать курсовая по Отсутствует: "Решение систем линейных алгебраических уравнений методом простой итерации" Страница 4

(Назад) (Cкачать работу)

A - массив в который записывается система

B - массив в который записывается система приведенная к виду

С - массив В умноженный на начальное приближение

L - массив В с обнуленной главной диагональю

S - все суммы

H - массив α1 α2 α3

q - α

E - точность

X - массив значений Х Program p1; uses crt;n=10;A,B,C,l:array[1..n,1..n] of real;,q,max,E,w,z:real;,F,g,h,x:array[1..n] of real;,o,i,j: integer;,x2,x3,x11,x12,x13,max1,max2,max3:real;clrscr;('Vvedite chislo peremennih');(m);('Vvedite chislo uravneniy');(o);:=o+1;('Vvedite e->');(w);[1,1]:=0.1; a[1,2]:=-0.04; a[1,3]:=-0.63; a[1,4]:=-0.15;[2,1]:=-0.04; a[2,2]:=0.34; a[2,3]:=0.05; a[2,4]:=0.31;[3,1]:=-0.43; a[3,2]:=0.05; a[3,3]:=0.13; a[3,4]:=0.37;('privedenie k vidu');j:=1 to o do Begin[1,j]:=-(A[3,j]/a[3,1]);[2,j]:=-(A[2,j]/a[2,2]);[3,j]:=-(A[1,j]/a[1,3]);;;i:=1 to m do Beginj:=1 to o doj=o then B[i,j]:=-(B[i,j]);end;i:=1 to m do beginj:=1 to o do(' ',B[i,j]:3:3);; end;;('x1=',b[1,2]:3:3,'x2+',b[1,3]:3:3,'x3+',b[1,o]:3:3);('x2=',b[2,1]:3:3,'x1+',b[2,3]:3:3,'x3+',b[2,o]:3:3);('x3=',b[3,1]:3:3,'x1+',b[3,2]:3:3,'x2+',b[3,o]:3:3);;i:=1 to n do beginj:=1 to o-1 doIj then[i,j]:=b[i,j];;i:=1 to m do beginj:=1 to o-1 do(' ',L[i,j]:3:3); writeln; end;('Nachalnoe priblijenie');i:=1 to m do Begin[i]:=B[i,o]; writeln(' ',F[i]:3:3); end;:=g[1];I:=1 to m do Begin S:=0;J:=1 to o-1 do[i]:=g[i]+abs(L[i,j]);('alpha=',g[i]:3:3);max1

Похожие работы