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

@Andrey_Lytov · Регистрация: 13.02.2013

Студворк — интернет-сервис помощи студентам

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

(х-1)(х-3)(х-3)...(х-63) - числитель дроби
(х-2)(х-4)(х-8)...(х-64) - знаменатель дроби

@antonboom · 14.02.2013, 00:47

пойдет?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Option Explicit
 
Private Sub Form_Load()
Dim x As Double
Dim i As Integer
Dim ch1 As Double
Dim zn1 As Double
Dim ch(6) As Double
Dim zn(6) As Double
Dim rezult As Double
 
InputBox (x)
 
'÷èñëèòåëü
For i = 1 To 6              'çàïîëíÿåì ìàññèâ
ch(i) = x + 1 - 2 ^ i
Next i
 
 
ch1 = ch(1)                 'ïåðåìíîæàåì ýëåìåíòû ìàññèâà
For i = 1 To 5
ch1 = ch1 * ch(i + 1)
Next i
 
'çíàìåíàòåëü
For i = 1 To 6
zn(i) = x - 2 ^ i
Next i
 
zn1 = zn(1)
For i = 1 To 5
zn1 = zn1 * zn(i + 1)
Next i
 
'ðåçóëüòàò
rezult = ch1 / zn1
 
MsgBox rezult
 
End
End Sub

проверялось через калькулятор при x = 0, вроде всё правильно.

@Catstail · 14.02.2013, 11:05

А вот:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Function Res(x As Double, n As Integer)
Static k As Integer
Static s As Double
       If k = 0 Then
          k = 1
          s = 1
          Res = Res(x, n)
       ElseIf k <= n Then
          s = s * (x - k) / (x - k - 1)
          k = k + 2
          Res = Res(x, n)
       Else
          Res = s
       End If
End Function
 
Sub Test()
    Debug.Print Res(0.5, 63)
End Sub

@Казанский · 14.02.2013, 16:35

Сообщение от antonboom

Visual Basic
1
2
3
...
InputBox (x)
...

проверялось через калькулятор при x = 0, вроде всё правильно

А другое значение х ввести какбэ не получится

@antonboom · 14.02.2013, 16:42

Нет, я имел в виду, что проще всего проверить при нуле(что я и сделал)- это никак не связано с InputBox.Не понимаю Вашего смеха.

@Catstail · 14.02.2013, 16:57

Все просто. Правильно вызывать InputBox надо так:

Visual Basic
1
  x=InputBox("приглашение")

а у тебя написано:

Visual Basic
1
  inputbox (x)

Такой вызов не изменит значения переменной x

@Казанский · 15.02.2013, 01:16

Ну, обычно использование InputBox предполагает, что можно ввести какое-то значение переменной. Здесь только выводится х, а введенное значение игнорируется. То есть следовало бы написать

Visual Basic
1
2
3
MsgBox x
'либо
x = InputBox("Введите х", , 0)

Добавлено через 8 часов 12 минут
вариант

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
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

Не по теме:

В Excel формула массива

Code
1
=ПРОИЗВЕД(1+1/(A1-2^СТРОКА(1:6)))

А1=х, вместо 6 можно поставить любой показатель степени двойки (до 1023).

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

@Andrey_Lytov 0 / 0 / 0 Регистрация: 13.02.2013 Сообщений: 10

	Дано действительное число х. Вычислить: (х-1)(х-3)(х-7).(х-63) / (х-2)(х-4)(х-8).(х-64) 13.02.2013, 15:51. Показов 3124. Ответов 6 Метки нет (Все метки) Дано действительное число х. Вычислить: (х-1)(х-3)(х-7)...(х-63) / (х-2)(х-4)(х-8)...(х-64) (х-1)(х-3)(х-3)...(х-63) - числитель дроби (х-2)(х-4)(х-8)...(х-64) - знаменатель дроби 0

@antonboom bmstu-team 301 / 136 / 91 Регистрация: 10.01.2012 Сообщений: 420 Записей в блоге: 10
	14.02.2013, 16:42
	Нет, я имел в виду, что проще всего проверить при нуле(что я и сделал)- это никак не связано с InputBox.Не понимаю Вашего смеха. 0

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

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