Итерационные циклы

Варианты индивидуальных заданий

Найти сумму ряда:

1. ;
2. ;
3. ;
4. ;
5. ;
6. ;
7. ;
8. ;
9. ;
10. ;
11. ;
12. ;
13. ;
14. ;
15. ;
16. ;
17. ;
18. Вычислить корень квадратный по алгоритму Герона , где n = 0,1,2…, приняв начальное значение ; расчет остановить, если .
19. Вычислить двумя способами: используя стандартную функцию и формулу разложения в ряд

.

Сравнить два полученных результата и получить их абсолютную разницу. Учесть ввод аргументов в градусах.

1. Вычислить двумя способами: используя стандартную функцию и формулу разложения в ряд

.

Сравнить два полученных результата.

1. Вычислить , используя формулу разложения в ряд

.

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

Пример 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

Задание 4

Дата добавления: 2017-02-01