"justify"> {(i1 = j; i1 r; i1 + +)
{(abc a [i1] [j1]))
{= fabs (S-> a [i1] [j1]); = i1; = j1;
}
}
} = 0; (S-> a [S-> r-1] [S-> r] == 0 && j == S-> r- 1)// proverka na mnojestvo reshenii
{(b); (c); mnogo;
} if (S-> a [abc1] [abc2] == 0)// proverka na net resheniia
{(b); (c); net;
} if (S-> a [abc1] [abc2]! = 0 && j == S-> r-1)// vishodim iz poslednego cikla, posle proverok
{;
} (bbb = 0; bbb r +1; bbb + +)// meniaem stroki mestami
{= S-> a [j] [bbb];> a [j] [bbb] = S-> a [abc1] [bbb];> a [abc1] [bbb] = buf1;
} (bbb = 0; bbb r; bbb + +)// meniaem stolbci mestami
{= S-> a [bbb] [j];> a [bbb] [j] = S-> a [bbb] [abc2];> a [bbb] [abc2] = buf1;
} = b [j];// meniaem indeksi kak i stolbci [j] = b [abc2]; [abc2] = buf1;
if (v == 1)
{_matrici (S);
} + +;// primoi hod metoda gaussa (p = 0; p r-p1; p + +)
{+ +; = S-> a [i] [j]/S-> a [j] [j];
if ((buf * S-> a [j] [j]) + S-> a [i] [j]! = 0)
{= buf * -1;
}
{= fabs (buf);
} (p2 = j; p2 r +1; p2 + +)
{> a [i] [p2] + = S-> a [j] [p2] * buf;
}
} + +; = j;
} q = 0, q1 = 0, q2 = 0, q3 = 0, T = 0, T1 = 0;
float D [20]; buf2 = 0; = 0; (q = 0; q r; q + +)// nahodim neizvestnie
{(q1 = 0; q1
{+ = (D [T] * S-> a [S-> rq-1] [S-> r-q3] * (-1)); + +; + +;
} = 0; + +; = 1; + +; [T1] = (buf2 + S-> a [S-> ri] [S-> r])/S -> a [S-> ri] [S-> ri];
buf2 = 0;> a [S-> ri] [S-> r] = D [T1]; + +;
} (i1 = 0; i1 r; i1 + +)// meniaem otveti kak i stolbci
{[i1] = S-> a [i1] [S-> r];
} (i1 = 0; i1 r; i1 + +)
{> a [i1] [S-> r] = c [b [i1]];
} (b); (c); single;
} main ()
{(); (); i = 0, j = 0, v = 0, v1 = 0; * buff; S; = (char *) malloc (2 * sizeof (float)) ; (buff == NULL)
{(" nOshibka pri videlenii pamiati"); (! getch ())
{();
} (1);
}
{<<"Vvedite kolichestvo strok:";>> buff;. r = atoi (buff);
} (S.r <1 | | S.r> 15);. a = (float **) malloc (Sr * sizeof (float *)); (Sa...
