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