BrdGuest Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код: Function Factorial(ByVal N As Byte) As Long     Dim Result As Long       If N > 1 Then         Result = 2         For i% = 3 To N             Result = Result * i%         Next i%         Factorial = Result     Else         Factorial = 1     End If End Function   '.....................   Const Epsilon = 0.00001 Dim e As Double Dim Item As Double   i% = 3 e = 2.5 Item = 1 / Factorial(i%) Do     e = e + Item     i% = i% + 1     Item = 1 / Factorial(i%) Loop Until Item < Epsilon Всего записей: 43 | Зарегистр. 07-12-2007 | Отправлено: 18:11 14-12-2007 | Исправлено: BrdGuest, 18:19 14-12-2007

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Visual Basic (VB).

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование