ProgIng - Programación en Ingeniería
Loading...
Searching...
No Matches
Ejemplo022.c
Go to the documentation of this file.
1#include <stdio.h>
2
3#define N 100
4
5int main(int argc, char *argv[])
6{
7 int n, i, j, k;
8 float A[N][N], b[N], fct, x[N];
9 do{
10 printf("Ingrese el numero de incognitas: ");
11 scanf("%d", &n);
12 }while(n<3||n>N);
13 for(i=0; i<n; i++)
14 {
15 for(j=0; j<n; j++)
16 {
17 printf("A[%d][%d] = ", i+1, j+1);
18 scanf("%f", &(A[i][j]));
19 }
20 printf("b[%d] = ", i+1);
21 scanf("%f", &b[i]);
22 x[i] = 0;
23 }
24 for(i=0; i<n; i++)
25 {
26 printf("%.2fx1", A[i][0]);
27 for(j=1; j<n; j++)
28 {
29 printf("%+.2fx%d", A[i][j], j+1);
30 }
31 printf("=%.2f\n", b[i]);
32 }
33 for(i=1; i<n; i++)
34 for(j=i; j<n; j++)
35 {
36 for(k=0, fct=A[j][i-1]/A[i-1][i-1]; k<n; k++)
37 A[j][k]-=(fct*A[i-1][k]);
38 b[j]-=(fct*b[i-1]);
39 }
40 /*
41 for(i=0; i<n; i++)
42 {
43 for(j=0; j<n; j++)
44 printf("%.2f\t", A[i][j]);
45 printf("%.2f\n", b[i]);
46 }
47 */
48 for(i=n-1; i>-1; i--)
49 {
50 x[i] = b[i];
51 for(j=i+1; j<n; j++)
52 x[i]-=A[i][j]*x[j];
53 x[i]/=A[i][i];
54 }
55 for(i=0; i<n; i++)
56 printf("X[%d] = %f\n", i+1, x[i]);
57 return 0;
58}
#define N
double fct(double x, int n)
Definition Ejemplo029.c:34
int main(void)
Definition Ejemplo_035.c:15