Образец выполнения задания

Пример 1. Определить количество итераций, при котором будет выполняться равенство с точностью до 0,001:

Dim S As Single, N As Integer

Private Sub Form_Load()

S = 0 'Присвоить начальное значение S

N = 0 'Присвоить начальное значение N

WHILE ABS(2 - S) >=.001 'Начало итерационного цикла

S = S + (1 / 2 ^ N) 'Вычисление очередного приближения

N = N + 1 'Изменение переменной N

WEND 'Конец цикла

MSGBOX "S=" & S 'Вывод результата на экран

MSGBOX "N="& N '

END Sub

Пример 2. Программа, вычисляющая сумму первых n членов ряда

1+1/2+1/3+....1/n.

Dim S As Single, N As Integer, J As Integer

Private Sub Form_Load()

N=INPUTBOX ("введите число членов ряда")

S=1: 'S-сумма ряда;

j=1 ‘j-переменная цикла

DO WHILE j <= n 'начало цикла, делать, пока J <= n

S=S+1/(j+1) 'накапливаем сумму ряда

j=j+1 'изменяем переменную цикла

LOOP 'конец цикла

MSGBOX "сумма ряда равна " & S 'печать результата

END SUB

Пример 3. Определить сумму членов арифметической прогрессии:

формулу не использовать.

Dim S As Single,N As Integer,J As Integer,D As Single,A As Single

Private Sub Form_Load()

S=0'S-сумма ряда

J=1 'j-переменная цикла

N = INPUTBOX ("Введите N ")'Ввод переменных N, D, A

D = INPUTBOX ("Введите D ")

A = INPUTBOX ("Введите A ")

DO WHILE J <= N 'начало цикла, делать, пока J <= N

S = S + (A + (J - 1) * D) 'накапливаем сумму ряда

J = J + 1'изменяем переменную цикла

LOOP'конец цикла

MSGBOX "S=" & S'печать результата

END SUB