| Вопрос: Математическая формула в VB | Добавлено: 30.11.11 15:13 |
Автор вопроса:  Roxy1992
|
|
Объясните пожалуйста как можно в бэйсик 6.0 внести математическую формулу
беск П *(2+ (1/i!)) i=1 нужно найти первое значение произведения большее 1000 и определить количество сомножителей. |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа: Cramper Вопросов: 15 Ответов: 93 |
Профиль | | #1 | Добавлено: 01.12.11 12:28 |
 im fact, p As Double
im i As Integer
..................... 'Первое значение элемента произведения p = 2 + 1 / 1 i = 1 fact = 1 o While p < 1000
i = i + 1 fact = fact * i p = p * (2 + 1 / fact) 'MsgBox(fact) Loop MsgBox(p) MsgBox(i) |
||
Страница: 1 |