align="justify">// ---------------------------------------- --------- logy (double x)
{log (3)/x;
}
// ---------------------------------------- --------- Integ (fun ff, double a, double b)
{f1; int i; (i = 0; i <2; i + +) (Tab_integ [i] [0] == ff) = Tab_integ [i] [1]; ((* f1 ) (b) - (* f1) (a));
}
// ---------------------------------------- --------- Dif_fun (fun ff, double x)
{f1; int i, j; (i = 0; i <2; i + +) if (Tab_fun [i] [0] == ff) = Tab_fun [i] [1]; ( * f1) (x);
}
// ---------------------------------------- --------- form_matr (double ** a, int n) {i, j; (i = 1.0; i <= n; i + +) {(j = 1.0; j <= n; ; br/>
}
}
// ---------------------------------------- --------- form_vect (double * x, double ** a, int n)
{(int i = 0; i
{[i] =-10e20; (int j = 0; j
{(a [j] [i] <0)
{(a [j] [i]> x [i]) [i] = a [j] [i];
}
}
}
}
// ---------------------------------------- --------- print_matr (double ** a, int n, FILE * F)
{i, j; (i = 0; i
{(j = 0; j
{(F, "% 10.5f", a [i] [j]);
} (F, " n");
}
}
// ---------------------------------------- --------- print_vect (double * x, int n, FILE * F)
{i; A1; = set_attr (0, RED, YELLOW); (A1.cod); (i = 0; i
{(F, "% 10.5f", x [i]);
} (i = 0; i
{("% 10.5f", x [i]);
} (" n");
}
// ---------------------------------------- --------- Transpon (double ** At, double ** a, int n) {i, j; (i = 0; i
}
}
// ---------------------------------------- --------- sqrM (double ** a2, double ** a, int n) {i, j, k; (i = 0; i
{(j = 0; j
{[i] [j] = 0.0; (k = 0; k
}
}
}
// ---------------------------------------- --------- razn_matr (double ** a1, double ** a2, double ** razn, int n) {i, j; (i = 0; i
