 |
Вид программы на языке Qbasic
|
|
|
|
DECLARE SUB simp (a!, b!, n!, sim!)
DECLARE SUB trap (a!, b!, n!, tr!)
DECLARE SUB pr (a!, b!, n!, prm!)
DECLARE FUNCTION F! (x!)
CLS
INPUT "Введите a= "; a
INPUT "Введите b= "; b
INPUT "Введите e= "; e
n = 2
DO
CALL pr(a, b, n, prm)
CALL pr(a, b, 2 * n, prm1)
n = 2 * n
LOOP UNTIL ABS(prm1 - prm) < e
PRINT "шаг интегрирования h="; (b - a) / n
PRINT "значение интеграла по методу прямоугольника="; prm
PRINT " кол-во шагов для достижения точности Eps ="; n
n = 2
DO
CALL trap(a, b, n, tr)
CALL trap(a, b, 2 * n, tr1)
n = 2 * n
LOOP UNTIL ABS(tr1 - tr) < e
PRINT "шаг интегрирования h="; (b - a) / n
PRINT "значение интеграла по методу трапеции="; tr
PRINT " кол-во шагов для достижения точности Eps ="; n
n = 2
DO
CALL simp(a, b, n, sim)
CALL simp(a, b, 2 * n, sim1)
n = 2 * n
LOOP UNTIL ABS(sim1 - sim) < e
PRINT "шаг интегрирования h="; (b - a) / n
PRINT "значение интеграла по методу Симпсона="; sim
PRINT " кол-во шагов для достижения точности Eps ="; n
END
FUNCTION F (x)
F = (x ^ 2 * LOG(1 / x)) / (1 - x)
END FUNCTION
SUB pr (a, b, n, prm)
h = (b - a) / n
prm = 0
FOR x = a TO b - h STEP h
prm = prm + F(x)
NEXT x
prm = prm * h
END SUB
SUB simp (a, b, n, sim)
s1 = 0: s2 = 0
h = (b - a) / n
FOR x = a + h TO b - 2 * h STEP 2 * h
s1 = s1 + F(x)
s2 = s2 + F(x + h)
NEXT x
sim = h * (F(a) + 4 * s1 + 2 * s2 + F(b)) / 3
END SUB
SUB trap (a, b, n, tr)
tr = 0
h = (b - a) / n
FOR x = a + h TO b STEP h
tr = tr + F(x)
NEXT x
tr = h * ((F(a) + F(b)) / 2 + tr)
END SUB
РЕЗУЛЬТАТЫ РАБОТЫ ПРОГРАММЫ В Qbasic
Результат расчета в ППП ЭВРИКА.
Вывод: Значение интеграла, вычисление всеми способами достаточно близки.
Методические указания к выполнению лабораторной работы на ПК
1. Подынтегральную функцию варианта задания оформляем как подпрограмму функцию, используя в меню оболочки QuickBasic режим:
FUNCTION F(Х)
F= < функция соответствующего варианта >
END FUNCTION
Запись всех подпрограмм можно осуществить через меню оболочки QuickBasic:
1. Alt - вход в меню
2. EDIT - всплывающее меню редактирования
|
|
|
3. NEW SUB - создание новой подпрограммы
(NEW FUNCTION -создание новой подпрограммы функции)
4. Набираем в диалоговом окне новое имя подпрограммы, например: INTT
5. На экране появляется заготовка для создания подпрограммы:
SUB <имя подпрограммы>
END SUB
6. Приступаем к написанию подпрограммы между ключевыми словами SUB и END SUB
Все вспомогательные подпрограммы объединяются управляющей программой или головным модулем. Переход от текста управляющей программы к текстам подпрограмм происходит при нажатии клавиш
ALT + F1, наоборот - ALТ + F2
Контрольные вопросы
1. Когда используются процедуры?
2. Как создаются подпрограммы, процедуры?
3. Что такое управляющий модуль?
4. Как просмотреть все присоединённые модули?
5. Где объявляются присоединённые подпрограммы? Каким оператором?
6. Какие параметры называются фактические?
7. Какие параметры называются формальные?
8. Как передаются данные из подпрограммы в программу и наоборот?
9. Чем отличаются задачи на интегрирование с заданным числом разбиения отрезка от задачи с заданной точностью вычисления?
10. В чем заключаются численные методы интегрирования?
11. Как реализуется один из методов (по выбору) на QBasic?
12. Как определить погрешность метода?
13. Как осуществляется интегрирование с автоматическим методом выбором шага интегрирования?
Варианты заданий для самостоятельного решения
Задание
Вычислить интеграл тремя методами: прямоугольников, трапеций и методом парабол (Симпсона), используя автоматический выбор шага интегрирования.
Точность вычислений ε =10-4.
Таблица заданий № 1.
| № п/п | Уравнение | № п/п | Уравнение | № п/п | Уравнение |
| 
| 
| |||
| 
| 
| |||
| 
| 
| |||
| 
| 
| |||
| 
| 
| |||
| 
| 
| |||
| 
| 
| |||
| 
| 
| |||
| 
| 
| |||
| 
| 
|
|
|
|
Таблица заданий № 2.
| № п/п | Уравнение | № п/п | Уравнение | № п/п | Уравнение |
| 
| 
| |||
| 
| 
| |||
| 
| 
| |||
| 
| 
| |||
| 
| 
| |||
| 
| 
| |||
| 
| 
| |||
| 
| 
| |||
| 
| 
| |||
| 
| 
|
ЛАБОРАТОРНАЯ РАБОТА № 3
«Уточнение корня уравнения»
Цель работы
Получить навыки модульного программирования на примере задачи численного решения нелинейных уравнений. Использование оболочки QBasic для построения программ и головного модуля.
|
|
|
