Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Программирование под Windows > Visual Basic
Перезагрузить страницу Поехала крыша...... не могу написать формулу для вычисления
Ответ
 
Опции темы Опции просмотра
  (#16 (permalink)) Старый
Fuud Fuud вне форума
Member
 
Сообщений: 4,076
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 03.09.2004
По умолчанию 17.04.2006, 21:31

влом мне что-то писать...

Код:
Public Function pr_e(x As Double, Точность As Double) As Double
result=0;
fact=1;
step=2;

if abs(x)<1 then
while Abs((x^fact)/fact)>Точность
  result=result+((-1)^step) *(x^fact)/fact;
  fact=fact+2;
wend
endif

if x<=-1 then
***

end sub
Ответить с цитированием
  (#17 (permalink)) Старый
Budhardt Budhardt вне форума
Новичок
 
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 16.04.2006
По умолчанию 03.05.2006, 01:42

Забыл сказать, что я решил эту задачу Вот как выглядит решение. Может кому-то понадобится:
Код:
Public Function arctangens(x As Double, Точность As Double) As Double
Dim result1 As Double
Dim result2 As Double
Dim pr_result1 As Double
Dim pr_result2 As Double

result1 = -3.141592654 / 2 - 1 / x
result2 = x
result3 = 3.141592654 / 2 - 1 / x
pr_result13 = -1 / x
pr_result2 = x
k = 3

If x <= -1 Then
    While Abs(pr_result13) > Точность
        pr_result13 = -pr_result13 * ((k - 2) / ((x ^ 2) * k))
        result1 = result1 + pr_result13
        k = k + 2
    Wend
arctangens = result1

ElseIf x < 1 Then
    While Abs(pr_result2) > Точность
        pr_result2 = -pr_result2 * (((k - 2) * x ^ 2) / k)
        result2 = result2 + pr_result2
        k = k + 2
    Wend
arctangens = result2

Else
    While Abs(pr_result13) > Точность
        pr_result13 = -pr_result13 * ((k - 2) / ((x ^ 2) * k))
        result3 = result3 + pr_result13
        k = k + 2
    Wend
arctangens = result3
End If
End Function
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите написать предикат для вычисления факториала числа discodies Prolog 5 25.05.2011 13:30
Как написать скрипт для вычисления площади треугольника по формуле Герона bead900 DHTML, JavaScript, VBScript 1 15.11.2010 22:21
Как написать свою формулу Tashik Visual Basic 1 05.01.2010 12:40
Как написать формулу (корень кубический из((Х+У)в квадрате-Z)) кузя C++ Builder 1 27.02.2009 00:51
Как написать самому формулу samo Visual Basic 3 14.08.2008 10:20
Как написать формулу в VBA samo Visual Basic 2 06.08.2008 23:09
Написать программу вычисления значения логического выражения Silencio Lisp 1 31.05.2008 13:38
Как написать формулу в екселе или в макросе...? Jenni Visual Basic 4 12.10.2007 15:22
помогите написать формулу массива diment Visual Basic 2 07.11.2006 12:56
помогите написать формулу diment Visual Basic 5 04.09.2006 11:24
помогите написать формулу diment Visual Basic 7 11.08.2006 10:06
Как написать код вычисления длины высот треугольника RAMPART Вопросы начинающих программистов 10 09.10.2005 22:25



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов