Задача № 2

Составить программу вычисления функции и вычислить значения функции в указанных точках. В точках, обозначенных полужирным шрифтом привести распечатку результата счета и исходных данных. Для остальных – результаты счета.

 

 

Предположим, что в ячейке А1 будет расположена запись x = , а в ячейке В1 значение аргумента х . Запись y = будем выдавать в ячейку А3, а значение функции y будем выдавать в ячейку В3. Тогда программу можно представить в виде

Private Sub Workbook_Open()

Const pi = 3.1415926

Dim x, y As Single

x = Range("B1").Value

If x <= 0 Then

y = 2 * x ^ 3 + x - 1

Else

If x < pi Then

y = Log(1 + x ^ 2)

Else

y = Sin(x ^ 2)

End If

End If

Range("A3").Value = "y ="

Range("B3").Value = y

End Sub

 

Результаты счета по предложенной программе имеют вид:

При других значениях аргумента получаем:

y(-0,32)=-1,38554 y(1,88)=1,511693

y(0)=-1 y(3,141593)=-0,4303