== NULL)
{(" nOshibka pri videlenii pamiati pod massiv ukazatelei"); (! getch ())
{();
} (1);
} (i = 0; i
{. a [i] = (float *) malloc ((S.r +1) * sizeof (float));
} (v1 == 0)
{<<"1-rendom, 2-vruchnue, 3-iz faila n"; = getch (); (v)
{'1 ': (); (i = 0; i
{(j = 0; j
{. a [i] [j] = random (25) -10;
}
} + +;; '2 ': (i = 0; i
{(j = 0; j
{
{("a [% i] [% i] =", i, j);>> buff;. a [i] [j] = atof (buff);
} (Sa [i] [j] <-99 | | Sa [i] [j]> 99);
}
} + +;; '3 ': * fp; = fopen ("text.txt", "rb"); (fp == NULL)
{<<"fail ne otkrit"; (& S);
} w; t = 0; = 0; = 0;
while (! feof (fp))
{res = fscanf (fp, "% f", & w); (res == 0)
{<<"Nepravilnoe soderjimoe faila"; (& S);
} if (t <((S.r +1) * S.r))
{+ +;. a [i] [j] = w; + +; (S.r +1 == j)
{+ +; = 0;
}
}
} (t <((S.r +1) * S.r))
{<<"Matrica ne zapolnena do konca";
vihod (& S);
} + +;;
}
} (" n"); _matrici (& S); = 0; = 0;
while (v1 == 0)
{<<"Pokazivat 'podrobno podscheti? (Y-da n-net): ";>> buff;
strlwr (buff); (* buff)
{'y': = 1; + +;; 'n': = 0; + +;;
}
} (" n"); (buff); rez = metod_gaussa (& S, v); (rez)
{single: (i = 0; i
{(" nx% i:% f", i +1, Sa [i] [Sr]);
} (" n nedinstvennoe reshenie sistemi");; mnogo: (" nsistema imeet mnojestvo reshenii");; net: (" nsistema ne imeet resheniia");; : printf (" noshibka");
} (& S);
}
В
Рис.1
