Дано действительное число х. Вычислить: (х-1)*(х-3)*(х-7)*.*(х-63) / (х-2)*(х-4)*(х-8)*.*(х-64) - VB

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

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

Дано действительное число х. Вычислить: (х-1)*(х-3)*(х-7)*...*(х-63) / (х-2)*(х-4)*(х-8)*...*(х-64) (х-1)(х-3)(х-3)...(х-63) - числитель дроби (х-2)(х-4)(х-8)...(х-64) - знаменатель дроби

Решение задачи: «Дано действительное число х. Вычислить: (х-1)*(х-3)*(х-7)*.*(х-63) / (х-2)*(х-4)*(х-8)*.*(х-64)»

textual
Листинг программы
Sub bb()
Dim x#, p#, d#
x = InputBox("x", , 0)
p = 1
d = 2
While d <= 64
    p = p * (1 + 1 / (x - d))
    d = d * 2
Wend
MsgBox p
End Sub

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


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

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

14   голосов , оценка 3.929 из 5
Похожие ответы