Cod sursa(job #2037889)

Utilizator iulianrotaruRotaru Gheorghe-Iulian iulianrotaru Data 12 octombrie 2017 22:12:17
Problema Algoritmul lui Gauss Scor 100
Compilator cpp Status done
Runda Arhiva educationala Marime 1.56 kb
#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;
}