End Sub. Пример 15.3.Составить программу вычисления по следующей итерационной формуле yi+1=0,5(yi + x/yi) с заданной точностью Е=0.001

Пример 15.3. Составить программу вычисления по следующей итерационной формуле y_i+1=0,5(y_i + x/y_i) с заданной точностью Е=0.001, начальным приближением y₀=1 и х=25_. В циклическом алгоритме (глава 10, рис. 10.7) выполним замену переменных: У_i обозначим переменной а

У_i+1 обозначим переменной b

Тогда запишем а=уо; b=0.5(a+x/a); ; a=b; Вывод b

Процедура отклика командной кнопки с использованием оператора If:

Private Sub CommandButton1_Click()

Dim e, x, yo, a, b As Single

e = 0.001: yo = 1: x = 25

a = yo

2: b = 0.5 * (a + x / a)

If Abs(b - a) < e Then GoTo 1

a = b

GoTo 2

1: MsgBox " b= " & b

Дата добавления: 2014-01-13