;
getch ();
}
void vvod2 (int * p, int * n, char sim) / / підпрограма для введення матриці
{i, j;// Номер елементу в матриці (Rus («Введіть кількість рядків і стовпців в квадратній матриці% c n»), sim); («% d», n);// Введення кількості рядків матриці (Rus («Введіть матрицю»));
for (i=0; i <* n; i + +) / / цикл для введення матриці
for (j=0; j <* n; j + +)
{(«% c [% 2d] [% 2d] =», sim, i, j); («% d», p + i ** n + j);
}
} vivod2 (int * p, int n, char sim) / / підпрограма для виведення матриці
{
int i, j;// Номер елементу матриці
printf (Rus («Матриця% c n»), sim); (I=0; i
{for (j=0; j
}
}
int sum (int * p, int n) / / підпрограма для визначення коефіцієнтів функції
{
int s, / / ??сума елементів, що стоять над головною діагоналлю і на ній
i, j;// Номер елементу матриці
s=0;// Початкове значення суми
for (i=0; i
for (j=i; j
s=s + * (p + i * n + j);// Зміна значення суми
return (s);// Повернення значення суми в програму
}
float fun (int p, int q, int c, float & des, float & x1, float & x2) / / підпрограма для розрахунку коренів рівняння і його дискриминанта
{
des=q * q - 4 * p * c;// Визначення дискриминанта рівняння
x1=(-q + pow (des, (1. / 2))) / (2 * p);// Розрахунок коренів
x2=(-q-pow (des, (1. / 2))) / (2 * p);// Рівняння
return (x1, x2, des);// Повернення даних в програму
}
Додаток Г
Лістинг рішення задачі 4
void pp4 () / / виклик підпрограми для вирішення завдання 4
{f;// Пункт меню
double a, b, integ, E;// Межі точність і значення інтеграла (Rus («Виберіть функцію для інтегрування»));// Виклик меню
puts («1. x / sqrt (pow (x, 4) - x)»); («2. x / cos (x/25)»); (« ; 3.1 / (x * x) + sin (x / 6) »);
scanf ("% d», & f);// Вибір рівняння
system («cls»);// Очищення екрана (Rus («Введіть нижню межу інтегрування»)); («% lf», & a);// Введення нижньої межі інтегрування (Rus («Введіть верхню межу інтегрування»)); («% lf», & b);// Введення верхньої межі інтегрування (Rus («Введіть точність»));
scanf ("% lf», & E);// Введення точності
switch (f) / / вибір інтегрованої функції
{case 1: integ=integral (a, b, * f1, E); break;// Рішення першого інтеграла
case 2: integ=integral (a, b, * f2, E); break;// Рішення другог...
