Page 61 - MATINF Nr. 1

Rezolvarea sistemelor de ecuat , ii liniare 61

{
for(i=io;i<m;i++)
for(j=1;j<=n+1;j++)
a[i][j]=a[i+1][j];
m--;
return -1;
}
else
{
f2<<"Sistem incompatibil!";
io=m+2;
return 0;
}
}
else
{
return 1;
}
}

void recuperare_solutie()
{
int j;
char c[n];
if(io==m+1)
{
if(m==n)
f2<<"Sistemul este compatibil determinat."<<endl;
else
{
f2<<"Sistemul este compatibil nedeterminat."<<endl;
int k=96;
for (j=1;j<=n;j++)
if(o[j]==0)
c[j]=char(++k);
}
f2<<"Solutia sistemului este:"<<endl;
for(jo=1;jo<=n;jo++)
{
f2<<"x"<<noshowpos<<jo<<"="<<showpos;
if(o[jo]==0)
{
f2<<c[jo]<<endl;
}
else
{
io=o[jo];
f2<<setw(8)<<fixed<<setprecision(4)<<a[io][n+1];
for(j=1;j<=n;j++)
if((o[j]==0)&&(fabs(a[io][j]))>eps)
{
f2<<setw(8)<<fixed<<setprecision(4)<<-a[io][j]<<"*"<<c[j];
}
f2<<endl;
}
}
}
}

void scrie_tabel()
{
int i,j;
f2<<"======";
for(j=1;j<=n+1;j++)