Чизикли алгебра тенгламалар системалари учун аник ва такрибий усуллари

short int i,j,k;

cin>>N;

for (i=0;i

for (j=0;j

cin>>A[i][j];

for (i=0;i

{ tmp=A[i][i];

for (j=N;j>=i;j--)

A[i][j]/=tmp;

for (j=i+1;j

for (j=i+1;j

{ tmp=A[j][i];

for (k=N;k>=i;k--)

A[j][k]-=tmp*A[i][k]; } }

x[N-1]=A[N-1][N];

for (i=N-2;i>=0;i--)

{ x[i]=A[i][N];

for (j=i+1;j

cout<<"\n Metod Gaussa :\n";

for (i=0;i

cout<

return 0;}

2- ва 3- тартибли тенгламаларни ечиш учун Крамер усули

Бошлангич маълумотлар:

• А
• В

ЧАТС ни ягона ечимга эга булиш шарти

det A ≠ 0

2- тартибли система учун Крамер усули

тенгламалар системасини Крамер усулида ечинг.

Ечиш.

Жавоб.
,

Oddiy iteratsiya usuli

Алгоритм

int main()

int main()

{ int n=3;

float a[n][n], b[n], x[n], x1[n], c1, c, eps;

for (int i=0; i

for (int j=0; j>a[i][j];

for (int i=0; i>b[i];

cin>>eps; for (int i=0; i

{ c=a[i][i];

for (int j=0; j

a[i][j]=a[i][j]/c; b[i]=b[i]/c; x[i]=b[i]; }

L1:for (int i=0; i

L1:for (int i=0; i

a[i][i]=0; for (int i=0; i

{c1=0;

for (int j=0; j

c1+=a[i][j]*x[j]; x1[i]=b[i]-c1; } for (int i=0; i

if (fabs(x[i]-x1[i])>eps) goto L2;

goto L3;

L2: for (int i=0; i

goto L1;

L3: for (int i=0; i

cout<

return 0; }

Zeydel usuli

int main(){

int main(){

int i,j,n;

double c,c1;

cout<<“Zeydel usuli \n Tenglamalar sonini kiriting\n n=";

cin>>n;

float a[n+1][n+1],b[n+1],x[n+1],x1[n+1];

for(i=1;i<=n;i++)

for(j=1;j<=n;j++){

cout<<"a["<>a[i][j]; }

for(i=1;i<=n;i++)

{ cout<<"b["<>b[i]; }

for(i=1;i<=n;i++){

c=a[i][i];

for(j=1;j<=n;j++)

a[i][j]=a[i][j]/c;

b[i]=b[i]/c;

b[i]=b[i]/c;

x[i]=b[i]; }

L1: for(i=1;i<=n;i++) a[i][i]=0;

for(i=1;i<=n;i++)

{ c1=0;

for(j=1;j<=n;j++) c1+=a[i][j]*x[j];

x1[i]=b[i]-c1; }

for(i=1;i<=n;i++)

if(fabs(x[i]-x1[i])>0.001) goto L2;

goto L3;

L2: for(i=1;i<=n;i++) x[i]=x1[i];

goto L1;

L3: cout<<“Natija \n";

for(i=1;i<=n;i++) cout<

return 0; }