Дано действительное число х. Вычислить: (х-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