Дано действительное число х. Вычислить: (х-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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
