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

Узнай цену своей работы

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

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

Решение задачи: «Омогите пожалуйста с циклами»

textual
Листинг программы 
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

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

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