9-Laboratoriya mashg‘uloti. Chiziqli tenglamalar sistemasini iterasiya usulida yechish. Ishning maqsadi
Download 178.59 Kb. Pdf ko'rish
|
9-Laboratoriya mashg‘uloti. Chiziqli tenglamalar sistemasini iterasiya usulida yechish
- Bu sahifa navigatsiya:
- Topshiriqlar
9-Laboratoriya mashg‘uloti. Chiziqli tenglamalar sistemasini iterasiya usulida yechish. Ishning maqsadi: Talabalarni Chiziqli tenglamalar sistemasini iterasiya usulida yechish yechish algoritmi bilan tanishtirish va unga Paskal tilida tuzilgan dasturda ishlashga o‘rgatish. Chiziqli tenglamalar sistemasini iterasiya usulida yechishning Paskal tilidagi dasturi. program iter_sis; uses crt; label 1,2; const n=3; {tenglamalar coni} type matrisa=array[1..n,1..n] of real; vektor=array[1..n] of real; var
a,a1:matrisa; x,x0,b,b1:vektor; eps,s:real; i,j,k:integer; begin clrscr;
for i:=1 to n do begin for j:=1 to n do begin write('a[',i:1,',',j:1,']='); read(a[i,j]) end; write('b[',i:1,']='); read(b[i]); end; eps:=0.0001; for i:=1 to n do begin b1[i]:=b[i]/a[i,i]; for j:=1 to n do a1[i,j]:=-a[i,j]/a[i,i] end;
for i:=1 to n do begin x0[i]:=b1[i]; a1[i,i]:=0; end;
2: for i:=1 to n do begin
s:=0.0; for j:=1 to n do s:=s+a1[i,j]*x0[j]; x[i]:=b1[i]+s; end;
k:=0; for i:=1 to n do if abs(x[i]-x0[i]) else begin for j:=1 to n do x0[j]:=x[j]; goto 2 end;
1: writeln('Sistemaning taqribiy yechimi:'); for i:=1 to n do writeln('x[',i:1,']=',x[i]:10:8); end.
1. Berilgan tenglamalar sistemasini iterasiya usulida yeching. 2. Berilgan tenglamalar sistemasini iterasiya usulida yechish blok sxemasini tuzing.
3. Berilgan tenglamalar sistemasini iterasiya usulida yechishning dasturini C++ va Delphi muhitida yarating.
1.
. 2 , 0 3 , 1 1 , 1 1 , 1 0,1x
, 1 , 0 0 , 2 0 , 3 1 , 0 0,3x
- , 3 , 2 1 , 1 1 , 0 1 , 1 0,8x , 1 , 0 2 , 0 1 , 0 8 , 0 0,2x
4 3 2 1 4 3 2 1 4 3 2 1 4 3 2 1 x x x x x x x x x x x x
2. . 1 , 7 1 , 8 4 , 3 7 , 2 3,1x , 9 , 6 8 , 2 1 , 9 3 , 3 2,8x , 7 , 2 7 , 4 8 , 6 7 , 0 3,9x
, 3 , 6 5 , 4 3 , 6 3 , 1 1,1x
4 3 2 1 4 3 2 1 4 3 2 1 4 3 2 1 x x x x x x x x x x x x
3. . 4 , 3 6 , 7 8 , 9 7 , 3 2,6x
, 5 , 3 5 , 2 4 , 3 2 , 6 4,8x
, 3 , 3 7 , 8 3 , 9 1 , 12 8,3x
, 1 , 1 1 , 0 7 , 0 3 , 3 2,1x
4 3 2 1 4 3 2 1 4 3 2 1 4 3 2 1
x x x x x x x x x x x
4. . 2 , 9 9 , 2 3 , 10 1 , 4 0,2x
, 3 , 8 1 , 10 4 , 6 3 , 3 0,5x
, 2 , 6 6 , 4 4 , 3 1 , 2 0,3x
, 1 , 0 2 , 0 4 , 0 3 , 0 0,1x
4 3 2 1 4 3 2 1 4 3 2 1 4 3 2 1 x x x x x x x x x x x x
Download 178.59 Kb. Do'stlaringiz bilan baham: |
ma'muriyatiga murojaat qiling