9-Laboratoriya mashg‘uloti. Chiziqli tenglamalar sistemasini iterasiya usulida yechish. Ishning maqsadi


Download 178.59 Kb.
Pdf ko'rish
Sana03.05.2020
Hajmi178.59 Kb.
#103093
Bog'liq
9-Laboratoriya mashg‘uloti. Chiziqli tenglamalar sistemasini iterasiya usulida yechish


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])then begin k:=k+1; if k=n then goto 1 end 

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. 

Topshiriqlar: 

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

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'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling