омогите пожалуйста с циклами - VB

Формулировка задачи:

Помогите пожалуйста с циклами я в них чего то потерялся Дано положительное а (а<1). Найти наибольшее число вида 2^-n, n>=0, меньшее а. Заранее огромное спасибо


textual

Код к задаче: «омогите пожалуйста с циклами - VB»

Private Sub Raschet1_Click()
Dim n As Integer
Dim s As Double
n = 0
a = BoxA
Do
s = 3 ^ -n
n = n + 1
Loop While s > a
BoxOt = 3 ^ -n
End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

9   голосов, оценка 3.556 из 5

Источник