While |
Abs(a) > eps |
||
n = n |
+ |
1 |
|
a |
= |
-1^n*x^(2*n+1)/(2*n+1) |
|
s |
= |
s |
+ a |
Wend |
|
|
|
t2=Time |
|
|
dt = FormatDateTime(t2-t1) |
|
|
MsgBox "Истинное значение |
" & |
Atn(x) & vbLf & _ |
"Расчетное значение |
"& s & vbLf &_ |
|
"Продолжительность расчета " & dt & vbLf &_ |
||
" x = " & x &" n = |
" & |
n , 4096,_ |
"Y = arcctg(x). Иванов |
И. И." |
|
Результат выполнения этой программы показан на рисунке 5.2.
Рисунок 16.2. – Результаты расчета с циклом While... Wend
Учебное задание
Вычислите число π по итерационной формуле с номером, соответствующим номеру Вашего ПК, с абсолютной погрешностью вычисления от 10-5 до 10-16. Найдите величину погрешности, при которой в числе π постоянными остаются 7 знаков после запятой. Определите программно время расчета для каждого варианта, покажите в окне сообщений расчетные
значения π, n и продолжительность расчета для различной погрешности. Напишите пять вариантов программы для цикла DO с проверкой
условия в начале и в конце и для цикла WHILE. Расчет для максимальной точности выполнить для одного варианта, т. к. его продолжительность может составлять 15 – 30 мин.
141
1) |
2) |
3) |
4) |
5) |
6) |
7)
8)
9)
10)
142