о інтеграла3: integ=integral (a, b, * f3, E); break; } / / Рішення третього інтеграла
printf (Rus («Значення певного інтеграла для даної функції дорівнює% .4 lf»), integ);// Вивід результату (); } / / Очікування натискання будь клавішіf1 (float x) / / підпрограма для виклику першими підінтегральної функції
{
double func;// Значення функції в точці
func=x / sqrt (x * x * x * x-x);// Визначення значення функції в точці
return (func);// Повернення результату в програму
}
float f2 (float x) / / підпрограма для виклику другого підінтегральної функції
{
double func;// Значення функції в точці
func=x / cos (x/25);// Визначення значення функції в точці
return (func);// Повернення результату в програму
}
float f3 (float x) / / підпрограма для виклику третій підінтегральної функції
{
double func;// Значення функції в точці
func=1 / (x * x) + sin (x / 6);// Визначення значення функції в точці (func);// Повернення результату в програму
} integral (float a, float b, funct_type funct, float E) / / подпрограммa для розрахунку інтеграла
{n=3, i;// Кількість узловh, integ1, integ2, x, s;// Значення інтеграла і крок=(ba) / n;// Розрахунок кроку=3 * h / 8 * (funct(A) + funct (b) +3 * funct (a +2 * h) +3 * funct (a + h));// Обчислення значення інтеграла=1000; (fabs (integ1-integ2)> E) / / цикл по досягненню точності
{n *=2; h=(b-a) / n; integ1=integ2; integ2=0; s=0; i=1; (x=a; x <= b; x=x + h)
{i + +; (i% 3 == 0) +=3 * h / 8 * (funct (x) + funct (b) +3 * funct (x +2 * h) +3 * funct (x + h)); }
integ2=integ2 + s; } (Integ2); } / / Повернення значення інтеграла в програму
Додаток Д
Лістинг основної програми
# include // Підключення
# include // Використовуваних
# include // Бібліотек
# include «lib. h »// Підключення бібліотеки з підпрограмами
main ()
{
int f, / / ??прапор для виклику меню
m;// Пункт меню
zact ();// Виклик заставки
f=0;// Початкове значення прапорця
while (f == 0) / / цикл для виклику меню
{
menu ();// Виклик меню
scanf ("% d», & m);// Введення пункту меню
switch (m) / / вибір завдання
{
case 1: system («cls»); pp1 (); break;// Вирішення завдання 1
case 2: system («cls»); pp2 (); break;// Вирішення завдання 23: system («cls»); pp3 (); break;// Вирішення завдання 34: system («cls»); pp4 (); break;// Вирішення завдання 45: system («cls»); zact (); break;// Виклик заставки
case 6: f=1; b...
