Найти сумму ряда с циклом с предусловием - VBA
Формулировка задачи:
Найти сумму ряда с помощью цикла с предусловием
Решение задачи: «Найти сумму ряда с циклом с предусловием»
textual
Листинг программы
Sub Summa() Dim Sum As Double, An As Double, N As Integer, Eps As Double Sum = 1#: An = 1#: N = 1 Eps = 0.000001 Do While An > Eps 'это предусловие, для послеусловия заменить на просто Do N = N + 1: An = 1# / N ^ 2 Sum = Sum + An Loop 'для послеусловия заменить на Loop Until An < Eps MsgBox Sum End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д