Создать приложение, вычисляющее значения переменных по заданным расчетным формулам - VB (170086)

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

Уважаемые форумчане, програмиисты помогите написать программу


textual

Код к задаче: «Создать приложение, вычисляющее значения переменных по заданным расчетным формулам - VB (170086)»

Option Explicit
Dim a!, b!, x!, w!, z!
 
Private Sub cmdR_Click()
    a = Val(txtA.Text)
    b = Val(txtB.Text)
    x = Val(txtX.Text)
    z = Sqr(a * x * Sin(2 * x) + Exp(-2 * x) * (x + b))
    w = Cos(x ^ 3) ^ 2 - x / Sqr(a ^ 2 + b ^ 2)
    Print "Z ="; z
    Print "W ="; w
End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 3.875 из 5

Источник