End Sub

Next

Dim S As Double,A As Double, x As Double,x2 As Double

N = InputBox(“Input N”)

x = InputBox(“Input x”)

S = 0

A = 1

x2 = x*x

For I = 1 To N

A = A * x2 / (2 * I – 1)

S = S + A

MsgBox “S=” & S

3^*. Найти сумму с погрешностью не хуже .

.

– частичная сумма, – остаток ряда.

Если при вычислении остаток ряда отбросить, и оставить только частичную сумму, будет допущена погрешность, равная .

При каком можно гарантировать, что , где – дозволенная погрешность?

,

То есть,

. (*)

На оценку (*) можно положиться только в том случае, если

.

Цикл с постусловием

repeat <Операторы> until <Л.В.>

<Операторы> являются телом цикла.

Тело цикла выполняется по меньшей мере один раз, а затем, возможно, многократно, пока < Л.В.> есть ложь.

Если < Л.В.> есть истина при первой же оценке, то тело цикла выполняется один раз.

Если < Л.В.> есть ложь при каждой оценке, то тело цикла выполняется неограниченно много раз.

Инструкция break применяется для досрочного прекращения цикла. Равноценна оператору “ goto Metka1”, для которого “Metka1:”расположена сразу после оператора цикла.

Инструкция continue применяется для досрочного перехода на очередную проверку условия продолжения цикла.

Равноценна оператору “ goto Metka2”, для которого “Metka2:” расположена сразу после последнего из операторов, составляющих тело цикла.

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