Нужна консультация классных программистов ( срочно ) - VB

Формулировка задачи:

Мне надо: 1.Составить программу на вычисление элемента F(x,y) при x,y 2.F(x,y) = (cos(2x) + 3sin(x) - 2)* tg(y))/корень из 187*пи^2 + 36*пи*x - 36*y^2 x и у берём рандомные пи = константа Препод сказал функции cos tg sin делаем заменой переменной , но мне как вы можете сделать так и сойдёт. Заранее спасибо, буду очень признателен всё-таки, кто сможет составить эту программу, если есть идеи пиши в скайп fallmons Ещё раз спасибо за внимание.

Код к задаче: «Нужна консультация классных программистов ( срочно ) - VB»

textual
Private Sub Command1_Click()
Dim Pi As Single
Dim F As Single
Dim x As Single, y As Single, z As Single
Randomize (Timer)
Pi = 4 * Atn(1)
x = Int(Rnd * 10) - 5
y = Int(Rnd * 10) - 5
z = 187 * Pi ^ 2 + 36 * Pi * x - 36 * y ^ 2
If z > 0 Then
F = (Cos(2 * x) + 3 * Sin(x) - 2) * Tan(y) / Sqr(z)
MsgBox "F(" & x & "," & y & ")=" & F
Else
MsgBox "Error"
End If
 
End Sub

7   голосов, оценка 4.286 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы
Для поиска решения или похожих решений вы можете воспользоваться "Поиском по сайту" или "Поиском по разделу"
Поиск по сайту