інтеграл за методом трапецій}: = 3;: = trap (a, b, n); {Початкове значення}: = r; {Запам'ятовується попереднє значення}: = n +2; { Збільшується кількість кроків}: = trap (a, b, n); {Розраховується нове значення} (abs (r-r2) <0.001); {Повторюється до досягнення необхідної точності}
{Висновок Результат за методом трапецій дорівнює: ', abs (r): 6:3); (' для отримання необхідної точності інтервал був розбитий на '); (n,' відрізків ');
{Обчислюється інтеграл за методом Сімпсона}: = 3;: = simp (a, b, n); {Початкове значення}: = r; {Запам'ятовується попереднє значення}: = n +2; { Збільшується кількість кроків}: = simp (a, b, n); {Розраховується нове значення} (abs (r-r2) <0.001); {Повторюється до досягнення необхідної точності}
{Висновок результатів} ('Результат за методом Сімпсона дорівнює:', abs (r): 6:3); ('для отримання необхідної точності інтервал був розбитий на');
writeln (n, 'відрізків');;
write ('ЗАПУСТИТИ ПРОГРАМУ СПОЧАТКУ? (y/n)');
readln (I);; I = 'y' then goto m1;
end.
5. Специфікація програми
Програма складається з наступних функціональних модулів:
) Функція f - обчислює значення інтегрованої функції;
) Функція simp - обчислює інтеграл методом Сімпсона;
) Функція trap - обчислює інтеграл методом трапецій;
) Процедура norm - обчислює порядок числа, необхідний для побудови графіка функції з урахуванням масштабу;
) Процедура out_gr - будує графік функції на екрані в графічному режимі з урахуванням масштабу.
Основна (головна) програма здійснює введення параметрів, що визначають функцію, введення кордонів відрізків, виклик функціональних модулів обчислення і виведення результатів на екран.
При запуску програми, користувач, при бажанні, може отримати інформацію про програму. При введенні невірних даних, програма інформує про це користувача і дає можливість відразу ввести інші дані, не перериваючи процес роботи програми. Також, після введення необхідних даних і виведення результатів на екран, або після виведення інформації про виняткову ситуацію, є можливість повторити процедуру обчислення. br/>В
Потім вводяться параметри і межі відрізків.
В
Після цього виводиться графік функції.
В
І, нарешті, виведення результатів.
В
6. Контрольний приклад
Тестування програми чисельного інтегрування методом Сімпсона проводилося за допомогою програми Mathcad 2000 Professional.
В
7. Резул...
