Нужна консультация классных программистов ( срочно ) - 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
Ещё раз спасибо за внимание.
Решение задачи: «Нужна консультация классных программистов ( срочно )»
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д