End Sub. y = (2.51 * Sin(xradian) / (2 + 3 * Cos(xradian)) ^ (1 / 3))

Do

End Sub

Loop

End Sub

Do

xradian = 3.14 * x / 180

y = (2.51 * Sin (xradian) / (2 + 3 * Cos (xradian)) ^ (1 / 3))

i = i + 1

Cells(i, 4) = x

Cells(i, 5) = y

x = x + xStep

' Повторить действия, пока x<= 40

Loop While x <= 40

– решение с использованием Until (с предусловием):

Sub Demo_Do_Until_Loop()

Dim xStart, xEnd, xStep As Integer

Dim x As Integer

Dim i As Integer

Dim xradian, y As Single

xStart = Cells(2, 2)

xEnd = Cells(3, 2)

xStep = Cells(4, 2)

i = 1

x = xStart

' Выполнять действия, пока x не превысит 40

Do Until x > 40

xradian = 3.14 * x / 180

y = (2.51 * Sin (xradian) / (2 + 3 * Cos (xradian)) ^ (1 / 3))

i = i + 1

Cells(i, 4) = x

Cells(i, 5) = y

x = x + xStep

' Конец цикла

– решение с использованием Until (с постусловием):

Sub Demo_Do_Until_Loop()

Dim xStart, xEnd, xStep As Integer

Dim x As Integer

Dim i As Integer

Dim xradian, y As Single

xStart = Cells(2, 2)

xEnd = Cells(3, 2)

xStep = Cells(4, 2)

i = 1

x = xStart

' Начало цикла

xradian = 3.14 * x / 180

y = (2.51 * Sin (xradian) / (2 + 3 * Cos (xradian)) ^ (1 / 3))

i = i + 1

Cells(i, 4) = x

Cells(i, 5) = y

x = x + xStep

' Повторить действия, пока x не превысит 40

Loop Until x > 40

Пример 16. Вычислить с помощью цикла наибольшее положительное число n, удовлетворяющее условию .

Sub n()

Dim n As Integer

n = 1

' Выполнять действия, пока истинно условие:

Do While 4 * n ^ 3 - n ^ 2 + 3 * n < 250000000#

n = n + 1

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