Pagini recente » Cod sursa (job #2227356) | Cod sursa (job #2580845) | Cod sursa (job #1817433) | Cod sursa (job #1642676) | Cod sursa (job #2037889)
#include <fstream>
#include <cmath>
#include <iomanip>
using namespace std;
ifstream f("gauss.in");
ofstream g("gauss.out");
const double EPS=1e-7;
int n,m,i,j,k;
double X[305],S[305][305];
int main()
{
f>>n>>m;
for(i=1;i<=n;++i)
for(j=1;j<=m+1;++j) f>>S[i][j];
int L=1,C=1;
while(L<=n&&C<=m)
{
///Cautam o linie i pentru care A[i][C] sa fie nenul
for(i=L;i<=n;++i)
if(abs(S[i][C])>EPS) break;
///Daca nu gasim linia i necunoscuta C este variabila libera
if(i==n+1)
{
C++;
continue;
}
///Interschimbam linia i cu L
if(i!=L) for(j=1;j<=m+1;++j) swap(S[i][j],S[L][j]);
///Impartim toate valorile de pe linia i la S[L][C]
for(j=C+1;j<=m+1;++j) S[L][j]/=S[L][C];
S[L][C]=1;
///Scadem din ecuatiile L+1...n ecuatia L inmultita cu S[i][C], pentru a face zero pe coloana C
for(i=L+1;i<=n;++i)
{
for(j=C+1;j<=m+1;++j)
S[i][j]-=S[i][C]*S[L][j];
S[i][C]=0;
}
++L;
++C;
}
for(i=n;i>0;--i)
for(j=1;j<=m+1;++j)
if(abs(S[i][j])>EPS)
{
///daca ecuatia este formata doar din valori 0 atunci afisez imposibil
if(j==m+1)
{
g<<"Imposibil";
return 0;
}
X[j]=S[i][m+1];
for(k=j+1;k<=m;++k)
X[j]-=S[i][k]*X[k];
break;
}
for(i=1;i<=m;++i) g<<fixed<<setprecision(8)<<X[i]<<' ';
return 0;
}