Выдаёт ошибку- не пойму почему?

[*Qwerty*]

Здравствуйте, товарищи.
Помогите, пожалста, не пойму в чем дело?
Пишу программу (это задание по информатике) вычисляющую значение функции:
y= cos (pi/4)^4 + (a+1.5)^(1/5) + a*b^8 + b/lg(abs(a)^2)
(записал выражение сразу на васике, а то тут редактора функций нету, чтобы записать это в математическом виде),
где a=-3.45, b=349.1

Вот мой текст программы:

Код: Выделить всё

Private Sub Form_Load()
'S razbivkoy na chasti
Dim a, b, y As Double
Dim c, d, e As Currency
Const pi As Currency = 3.1416
a = -3.45: b = 349.1
c = (Cos(pi / 4)) ^ 4
d = (a + 1.5) ^ (1 / 5)
e = a * b ^ 8
f = b / (Log(Abs(a)) ^ 2)
y = c + d + e - f
MsgBox (y)
End Sub


Так вот: при запуске программы выдается окошко с сообщением об ошибке "Run- time error 5
Invalid procedure call or argument" и выдиляет строку "d = (a + 1.5) ^ (1 / 5)", далее если пропустить эту ошибку появляется следующая в следующей строке "Run- time error 6"

И ещё: есть ли в ВБ6 константа PI?
И как вычислить функцию lg (x) (а то я нашёл только функцию ln x(в бейсике это log)).

Вобщем заранеее большое спасибо, буду бесконечно признателен если поможете.

[RayShade]

Во первых неясно, зачем изспользовать тип Currency, если все переменные можно объявить как Double. И потом, pi лучше написать как 3.1415926538 а то погрешность большая будет

[Amed]

Насчёт 3.1415926538
Точности 3.14159 вполне хватает, проверьте сами

Подставьте 3.14159 и 3.1415926538 и сравните ответ. Он будет одинаковым.

[*Qwerty*]

Во первых неясно, зачем изспользовать тип Currency, если все переменные можно объявить как Double. И потом, pi лучше написать как 3.1415926538 а то погрешность большая будет

Я не спрашивал, правильно ли я выбрал тип переменных и точность PI, я спросил: "почему появляется ошибка?".

[GSerg]

Потому что ты возводишь в дробную степень отрицательное число. Результатом является число комплексное. Оно в VB не поддерживается.

[A.A.Z.]

Не-а!

a = -3.45
d = (a + 1.5) ^ (1 / 5)

(a + 1.5) = -1.95
-1.95 ^ (1 / 5) = корень пятой степени из -1.95

Я пробовал, если поставить d = -1.95# ^ 0.2#: MsgBox d, он выдаст -1,14289..., т.е. дело не в этом, дело, ИМХО, в переменных...

[GSerg]

Кофейник, я ведь в маткаде проверил

Попробуй так: d=(-1.95)^0.2 - хотя, думаю, ты и без теста поймёшь, в чём фишка

[A.A.Z.]

Есть город в Финляндии - Лохья (Lohja), так вот, это про меня

[unreal666]

(-1.95)^(1/5) - это возможно. Ответом будет отрицательное число.
И вообще такое возможно, если в знаменателе нечетное число.
Только в VB это почему-то не прокатывает.

[xolod]

to *Qwerty*
Не понял..? А где объявление переменной 'f'?
А вообще, перепеши так, все работает

Код: Выделить всё

Const pi As Currency = 3.1416

Dim a As Double, b As Double, y As Double
Dim c As Double, d As Double, e As Double
Dim f As Double

a = -3.45: b = 349.1
c = (Cos(pi / 4)) ^ 4
d = -1.95 ^ 0.2
e = a * b ^ 8
f = b / Log(Abs(a)) ^ 2
y = c + d + e - f

MsgBox "Val: " & CStr(y)


[Андрей Васюта]

Не успел, Xolod меня опередил...
Всех с прошедшим NY