Sub Lab_2()

Dim a As Single, b As Single

Dim x As Single, f As Single

a = Worksheets("Лист1").Cells(1, 1).Value

b = Worksheets("Лист1").Cells(2, 1).Value

x = (a - b) / (a * a - a * b / Sin(a))

If a * b < 15 Then

f = Exp(a * x + 3) * Sin(x / b)

ElseIf (a * b >= 15) Then

f = a * Log(x) * Sin(x)

End If

Worksheets("Лист1").Cells(3, 1).Value = " X "

Worksheets("Лист1").Cells(4, 1).Value = " F "

Worksheets("Лист1").Cells(3, 2).Value = x

Worksheets("Лист1").Cells(4, 2).Value = f

End Sub