p>
AppFunc-> Enabled = true; (i = 0; i
// Знаходження коефіцієнтів параболи
matrix [2] [3] = tmp;
tmp = 0;
i = 0; j = 0;
q = 3;
p = q +1;
for (j = 0; j
if (matrix [j] [i] == 0)
{= j; ((matrix [k +1] [j] == 0) && (k
{= matrix [j] [i]; [j] [i] = matrix [k +1] [i]; [k +1] [i] = cur;
};
} (k = 0; k
{(matrix [k] [k]! = 0)
{= matrix [j] [k]/matrix [k] [k];// Отримуємо нулі в поточному рядку (i = 0; i
}
elsebreak;
}
// Матриця приведена до трикутного вигляду, починаємо зворотний хід
for (j = q - 1; j> = 0; j -)
{= matrix [j] [q]; (i = j + 1; i
}
// Виводимо коефіцієнти на екран
Screen-> Lines-> Add ("Коефіцієнти апроксимується функції");
// Розрахунок через апроксимуючу функцію з виведенням на екран
for (i = 0; i
{[i] = ApproxFunc (knots [i]);> Lines-> Add ("x =" + AnsiString (knots [i]) +
" tf (x, y) =" + AnsiString (approxim [i]));
}
{
// Очищення робочої областіi = Screen-> Lines-> Count; _type = NONE; (i> = 1)// Очищаємо поле виведення
{> Lines-> Delete (0); = Screen-> Lines-> Count;
}
Solution-> Enabled = false ;//Забор...
