3-Ma’ruza: Chiziqli algebraik tenglamalar sistemasini taqribiy yechish Reja

b:array[1..5] of real;
x:array[1..5] of real;
x1:array[1..5] of real;
begin
clrscr;
writeln(' Zeydel usulida xisoblash ');
write('Tenglamalar sonini kiriting‘);
write(' n=');
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
gotoxy(16*j,4*i);
write(‘a[‘,i,’:’,j,’]=’);
read(a[i,j]);
end;
gotoxy(22*j,4*i);
write(‘b[‘,i,’]=’);
read(b[i]);
end;
for i:=1 to n do
begin
c:=a[i,i];
for j:=1 to n do a[i,j]:=a[i,j]/c;
b[i]:=b[i]/c;
x[i]:=b[i];
end;
40: for i:=1 to n do a[i,i]:=0;
for i:=1 to n do
begin
c1:=0;
for j:=1 to n do c1:=c1+a[i,j]*x[j];
x1[i]:=b[i]-c1;
end;
for i:=1 to n do
if abs(x[i]-x1[i])>0.01 then goto 90;
goto 100;
90: for i:=1 to n do x[i]:=x1[i];
goto 40;
100: clrscr;
writeln(‘Sistema yechimlari:’);
for i:=1 to n do
writeln(‘x[‘,i,’]=’,x[i]);
readln;
end.
Chiziqli tenglamalar sistemasining yechimini Zydel uculida ehisoblash
Nomalumlar sonini kriting n=4
a[1,1]=20.9 a[1,2] =1.2 a[1,3]:=2.1 a[1,4]=0.9 a[1,5]=21.7
a[2,1]=1.2 a[2,2]=21.2 a[2,3]=1.5 a[2,4]=2.5 a[2,5]=27.46
a[3,1]=2.1 a[3,2]=1.5 a[3,3]=19.8 a[3,4]=1.3 a[3,5]:=28.76
a[4,1]=0.9 a[4,2]=2.5 a[4,3]=1.3 a[4,4]=32.1 a[4,5]=49.72
Sistema yechimi
x[1]=0.7999
x[2]=0.9999
x[3]=1.1999
x[4]=1.3999
Mustaqil ishlash uchun savollar

1. 
   Chiziqli tenglamalar sistemasini yechishning iteratsion usullari.
   
2. 
   Gauss-Zeydelning iteratsion usuli.
   
3. 
   Iteratsion usullarning yaqinlashish shartlari.