Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > Вычислить значение формулы

Автор: Wolver 3.2.2006, 17:30

Доброго времени суток.
Вот встала передо мной такая проблема, что необходимо решить приаттаченый файлик в Visual Basic 6.0.
А я в нем ни бум-бум...раньше на С\С++ да пайтоне работал.
Если кто знает помогите решить.
Зарание спасибо.

Автор: Fixin 3.2.2006, 20:20

Думаю, здесь этой теме больше место подходит.

Автор: SoWa 3.2.2006, 22:15

Не сталкивался с VB, но похоже не сложно. Надо 4 переменных, в 3 переменных значения x,y,z, в переменную S значение выражения.

Автор: Wolver 4.2.2006, 19:44

Вот и я не сталкивался.... Люди может кто знает а? А то в понедельник работу сдать надо а я еще ничего не сделал...

Автор: cardinal 4.2.2006, 20:22

Код


Option Explicit

Static Function Log10(X)
   Log10 = Log(X) / Log(10#)
End Function

Private Sub Command1_Click()
Dim X As Double
Dim y As Double
Dim z As Double
Dim gamma As Double
Dim theta As Double

X = 1.23
y = 0.04
z = 8.3
gamma = 2.7

theta = Sqr(Sgn(Tan(z) - X * y / (3.8 * 10 ^ (-2))) * (Tan(z) - X * y / (3.8 * 10 ^ (-2)))) * 3 * z ^ 5
theta = theta * (y ^ (X * gamma) - Log10(z ^ Sin(X))) * Sgn((y ^ (X * gamma) - Log10(z ^ Sin(X))))
End Sub

Theta будет равна 188356,113992379. Если должно получится что-то другое, то напиши что...

Успехов!

Автор: Wolver 5.2.2006, 14:37

Спассибо за помощь расчеты совпадают.