Информатика 2011-2012 / Дополнительная информация / Пример оформ Лабор раб 1,2 сем / Задача №1

Задача №1

Задание: Вычислить функцию у

X1, X2, B1, B2 – произвольные числа.

Эскиз проекта

Блок-схема

Программный код

Dim x1, x2, b1, b2 As Integer, y As Integer

Private Sub Command1_Click()

If (x1 > 0) Or (x2 > 0) Then y = (Sqr(Sin(x1) ^ 2 + Cos(x2) ^ 2)) / (2.5 * b1 + b2) Else y = 1.5 * b1 ^ 2 + (Abs(b2)) ^ 1 / 3

Command1.Caption = Str(x1) + Str(x2) + Str(y)

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Command3_Click()

x1 = Val(InputBox("Ввести x1", , "x1="))

End Sub

Private Sub Command4_Click()

x2 = Val(InputBox("Ввести x2", , "x2="))

End Sub

Private Sub Command5_Click()

b1 = Val(InputBox("Ввести b1", , "b1="))

End Sub

Private Sub Command6_Click()

b2 = Val(InputBox("Ввести b2", , "b2="))

End Sub

Работа приложения