Метод Гаусса з вибором головної змінної
(практична робота з комп'ютерної алгебри)
Текст програми.
# include
# include
# include
# include
const num = 4;
int i, j, I, J;
int c [num +1];
long double x [num +1];
long double max;
long double A [num] [num +1];
//------------------------------------------------ -----------< br /> void max_el (int sr, int st)
(Max = A [num +1- sr] [num +2- st];
I = num +1- sr;
J = num +2- st;
for (i = num +1- sr; i
(
for (j = num +2- st; j
(
if (fabs (A [i] [j])> fabs (max))
(
max = A [i] [j];
I = i;
J = j;
)
)
)
cout = 3; g -)
(
interface (); max_el (g-1, g); getch ();
perestanovka (g-1, g); interface (); getch ();
preob (num +2- g); interface (); getch ();
)
clrscr ();
print (num, num +1);
otvet ();
print (num, num +1);
cout
long double X [num];
for (i = 1; i
for (i = 1; i