Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Математическая формула в 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
  ;Dim fact, p As Double
  ;Dim i As Integer
.....................

        'Первое значение элемента произведения
        p = 2 + 1 / 1
        i = 1
        fact = 1
        ;Do While p < 1000
            i = i + 1
            fact = fact * i
            p = p * (2 + 1 / fact)
            'MsgBox(fact)
        Loop
        MsgBox(p)
        MsgBox(i)

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам