"justify">}
void vivod (int * p, int n, char sim) / / підпрограма для виведення масиву
{
int i;// Номер елементу масиву
printf (Rus («Масив% c n»), sim);
for (i=0; i
printf ("% 2d», * (p + i)); (« n");
} vvod (int * p, int * n, char sim) / / подпрограммa для введення масиву
{i;// Номер елементу в масиві (Rus (« nВведіте кількість елементів у масиві% c n»), sim); («% d», n);// Введення запланованого елементів у масиві
puts (Rus («Введіть масив»)); (i=0; i <* n; i + +) / / ціклдлявводмассіва
{printf ("% c [% d] =», sim, i); («% d», p + i); }
} kol (int * p, int n)
{
int i;// Номер елементу в масиві
int f=0;// Початкове значення кількості позитивних елементів у масиві
for (i=0; i
if (* (p + i)> 0) / / умова для визначення знака елемента в масиві
f + +;// Зміна значення кількості позитивних елементів масиву
return (f); } / / Повернення кількості позитивних елементів у програму
Додаток В
Лістинг рішення задачі 3
void pp3 () / / виклик підпрограми для вирішення завдання 3
{
int A [20], B [20], D [20], / / ??вихідні масиви
p, q, c, / / ??коефіцієнти функції
n, m, k;// Кількість рядків у матрицях
float x1, x2, des;// Коріння і дискримінант функції (Rus (« tРешіть рівняння px ^ 2 + qx + c=0, де p, q і з - суми елементів, що лежать вище головної діагоналі і на ній, в матрицях А, В і D, відповідно. »));// Вивід умови задачі
getch ();// Очікування натискання будь-якої клавіші
system («cls»);// Очищення екрана
vvod2 (A, & n, «A»);// Введення масиву А
vvod2 (B, & m, «B»);// Введення масив В
vvod2 (D, & k, «D»);// Введення масиву D
vivod2 (A, n, «A»);// Вивід масиву А
vivod2 (B, m, «B»);// Вивід масиву В
vivod2 (D, k, «D»);// Вивід масиву D
p=sum (A, n);// Визначення коефіцієнта функції
q=sum (B, m);// Визначення коефіцієнта функції
c=sum (D, k);// Визначення коефіцієнта функції
fun (p, q, c, des, x1, x2);// Обчислення коренів і дискриминанта функції
if (des> 0) / / умова для виведення результатів
printf (Rus («Корінням рівняння% d * x ^ 2 +% d * x +% d=0 є% .2 f і% .2 f n"), p, q, c, x1, x2);
else if (des == 0)
printf (Rus («Коренем рівняння% d * x ^ 2 +% d * x +% d=0 є% .2 f n"), p, q, c, x1);
else printf (Rus («Корені рівняння% d * x ^ 2 +% d * x +% d=0 комплексні (немає дійсних коренів) n"), p, q, c)...