11 2

Задание №11 (1)

Public Sub Result()

F=(Math.SIN(X-A)^2)+ ((X^3)+(X^2*Y)+(X*Y^2)+(Y^3))/(1-(X/A)+(Y/B)* Math.COS(X+A))

End Sub

Задание № 11 (2)

Sub tutor()

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles_

Button1.Click

Dim x As Single, y As Single

Dim a As Integer, b As Integer

Dim Z As Single, K As Single, F As Single

a = CInt(TextBox1.Text)

b = CInt(TextBox2.Text)

x = CSng(InputBox("x="))

y = CSng(InputBox("y="))

Z = x ^ 3 + a * x ^ 2 + a ^ 2 * x + a ^ 3

K = (y - b) ^ 2

F = Math.LOG((X - A )/ (Y - B ) + Math.EXP(X / A)* ( Z / K )

MsgBox ("F=" + CStr(F))

End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles_

Button2.Click

End

End Sub

End Class

Блок-схема алгоритма к заданию № 11, пункт 2

K=

ВВОД:

x,y,a,b

Z=

НАЧАЛО

ВЫВОД: F

КОНЕЦ