0

первую функцию вычислить при x=5, а вторую при x=-20. сама программа """

Option Explicit
Public rez As String
Public Sub Zadanie_A(x As Double)
Dim y As Double
If (x <> 1) Then
y = Log(x) / (x - 1)
rez = "Çàäàíèå À: Â x = " & x & " y = " & y
Else
rez = " A: A x = " & x & " "
End If
End Sub
Public Function Zadanie_B(x As Double) As Double
Dim y As Double
Select Case x
Case Is < -1
y = -1
Case Is < 0
y = x
Case Is < 1
y = -x
Case Else
y = -1
End Select
rez = rez & Chr(13) & "A: A  = " & x & " y = " & y
Zadanie_B = y
End Function
Option Explicit
Sub glavnaja()
Zadanie_A 1.2
MsgBox rez
End Sub

"""

2
  • 1
    Откуда передается x в Zadanie_A? Почему все Pablic? Почему пишете о двух функциях, но показываете одну? If (x <> 1) Then - х не может равняться единице, Вы пишете о двух других значениях.. Опишите нормально задачу. 14 мая 2020 в 17:03
  • @vikttur почему-почему. Где-то нашёл какой-то код, как работает - не знает. Вот и пришёл сюда, авось, помогут. 14 мая 2020 в 18:01

0

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Посмотрите другие вопросы с метками или задайте свой вопрос.