Programa que realiza iteraciones para determinar el valor de las //soluciones de un sistema de ecuaci¢nes por medio del método de "GAUSS-SEIDEL"

//Torres Martinez Gustavo Alan
//Grupo:4CM1
//Programa que realiza iteraciones para determinar el valor de las
//soluciones de un sistema de ecuaci¢nes por medio del mÇtodo de "GAUSS-SEIDEL"
#include<stdio.h>
#include<conio.h>
#include<dos.h>
#include<math.h>
#include<stdlib.h>
#include<iostream.h>

void main(void)
{
double x1,x2,x3,ex1,ex2,ex3,X1[15],X2[15],X3[15];
int i=0,j=0,k=0,l,y;
clrscr();
cout<<"El sistema de ecuaciones es:"<<endl;
cout<<"6x1+3x2-x3=12"<<endl<<"-x1+4x2+2x3=3"<<endl<<"x1-x2+6x3=2.3"<<endl;
cout<<endl<<"La soluciones se calcular†n:"<<endl;
cout<<"x1=(12-3x2+x3)/6"<<endl<<"x2=(3+x1-2x3)/4"<<endl<<"x3=(2.3-x1+x2)/6"<<endl;
cout<<endl<<"Iter   x1  x2       x3     Erax1(%)    Erax2(%)    Erax3(%)\n";
x1=12.0/6.0;
x2=(3.0+x1)/4.0;
x3=(2.3-x1+x2)/6.0;
X1[i]=x1;
X2[j]=x2;
X3[k]=x3;
i++;
j++;
k++;
printf("1    %1.5f   %1.5f  %1.5f     100         100         100",x1,x2,x3);
//for(l=0;l<10;l++)
//{
l=0;
do
{
x1=(12.0-3*x2+x3)/6.0;
x2=(3.0+x1-2*x3)/4.0;
x3=(2.3-x1+x2)/6.0;
X1[i]=x1;
X2[j]=x2;
X3[k]=x3;
ex1=((x1-X1[i-1])/x1)*100;
ex2=((x2-X2[j-1])/x2)*100;
ex3=((x3-X3[k-1])/x3)*100;
i++;
j++;
k++;
printf("\n%d    %1.5f   %1.5f  %1.5f    %2.4f       %2.4f      %2.4f",l+2,x1,x2,x3,fabs(ex1),fabs(ex2),fabs(ex3));
l++;
}
 while(fabs(ex1)>0.0001);
//}
cout<<endl<<endl;
textcolor(10+128);
cprintf("             Presiona cualquier tecla....");
getch();
}