Question

Задание:составить программу VBA (в exel) для вычисления значений функции z=x+y x=фигурн скобка (3t^2, t>0) (4, t=o) (24-t, t<0) y=фигурн скобка (0, t-s>x) (241, t-s<=x) t=24,683 s=-15000

Answer 1

Sub aaa()
    Const t = 24.683, s = -15000
    Dim x As Double, y As Double, z As Double
    Select Case t
    Case Is > 0
        x = 3 * t ^ 2
    Case 0
        x = 4
    Case Else
        x = 24 * t
    End Select
    If t - s > x Then
        y = 0
    Else
        y = 241
    End If
    z = x + y
    MsgBox z
End Sub

Результат - во вложении.

Answer 2

Вот пример программы VBA для вычисления значений функции z(x, y) в Excel, основываясь на заданных условиях:

Sub CalculateZ()
    Dim x As Double
    Dim y As Double
    Dim z As Double
    Dim t As Double
    Dim s As Double
    
    ' Заданные значения t и s
    t = 24.683
    s = -15000
    
    ' Ввод значений x и y
    x = InputBox("Введите значение x:")
    y = InputBox("Введите значение y:")
    
    ' Вычисление значения функции z
    If t > 0 Then
        z = 3 * t ^ 2
    ElseIf t = 0 Then
        z = 4
    Else
        z = 24 - t
    End If
    
    ' Вычисление значения функции y
    If t - s > x Then
        y = 0
    ElseIf t - s <= x Then
        y = 241
    End If
    
    ' Вывод результата
    MsgBox "Значение функции z(" & x & ", " & y & ") = " & z
End Sub

Эта программа позволяет пользователю ввести значения переменных x и y, а затем вычисляет значение функции z(x, y) в соответствии с заданными условиями. Значения t и s уже заданы в программе и равны 24.683 и -15000 соответственно.

Программа использует конструкцию If-ElseIf-Else для определения значения функции z в зависимости от значения переменной t. Если t больше 0, то значение функции z равно 3 * t^2. Если t равно 0, то значение функции z равно 4. В противном случае, значение функции z равно 24 - t.

Также программа использует конструкцию If-ElseIf для определения значения функции y в зависимости от значений переменных t, s и x. Если t - s больше x, то значение функции y равно 0. Если t - s меньше или равно x, то значение функции y равно 241.

В конце программы выводится сообщение с вычисленным значением функции z для заданных значений x и y.

Примечание: При запуске программы, вам будет предложено ввести значения переменных x и y через диалоговые окна. Пожалуйста, введите числовые значения для корректного вычисления функции z.