Cod sursa(job #1614845)

Utilizator ade_tomiEnache Adelina ade_tomi Data 26 februarie 2016 10:43:47
Problema Algoritmul lui Gauss Scor 80
Compilator cpp Status done
Runda Arhiva educationala Marime 1.48 kb
#include<iostream>
#include<iomanip>
#include<fstream>
#define eps 0.0000001
using namespace std;
double a[304][304],x[304];
int i,j,k,n,m,ii,jj,u;
int main()
{

    ifstream cin("gauss.in");
    ofstream cout("gauss.out");
    cin>>n>>m;
    m++;
    for(i=1;i<=n;i++)
        for(j=1;j<=m;j++)
            cin>>a[i][j];
    i=j=1;


    while(i<=n&&j<=m-1)
    {


        for(k=i;k<=n;k++)
            if(a[k][j]<-eps|| a[k][j]>eps)
                break;


        if(k==n+1)
        {

            j++;
            continue;
        }

        if(k!=i)
            for(u=j+1;j<=m;j++)
            {
                swap(a[k][u],a[i][u]);

            }
        for(u=j+1;u<=m;u++)
        {

            a[i][u]=a[i][u]/a[i][j];
        }
        a[i][j]=1;

        for(ii=i+1;ii<=n;ii++){
            for(jj=j+1;jj<=m;jj++)
                a[ii][jj]-=a[ii][j]*a[i][jj];
            a[ii][j]=0;
        }


        i++;
        j++;

    }
    for(i=n;i>0;i--)
    {
        for(j=1;j<=m;j++)
            if(a[i][j]>eps||a[i][j]<-eps)
            {
                if(j==m)
                {

                    cout<<"Imposibil";
                    return 0;
                }
                x[j]=a[i][m];
                for(k=j+1;k<=m-1;k++)
                    x[j]-=x[k]*a[i][k];
                break;

            }

    }
    for(i=1;i<=m-1;i++)
        cout<<fixed<<setprecision(8)<<x[i]<<" ";
    return 0;
}