Код выполнения условий согласно блок-схеме - VB

Узнай цену своей работы

Формулировка задачи:

Помогите,я написала программный код к схеме...а в итоге получается какая-то каша!Подскажите,кто может..

Решение задачи: «Код выполнения условий согласно блок-схеме»

textual
Листинг программы
Private Sub Form_Load()
    Dim a As Double, b As Double, c As Double, d As Double, z As Double
    a = CDbl(InputBox("Введите а", "Ввод"))
    b = CDbl(InputBox("Введите b", "Ввод"))
    c = CDbl(InputBox("Введите c", "Ввод"))
    d = CDbl(InputBox("Введите d", "Ввод"))
    If a > b Then
        If c < d Then
            z = e ^ 4.6 - 3 * Log(c - c * d)
        Else
            z = (Cos(c * d) ^ 2) / (a * (b - c * d))
        End If
    Else
        If c > d Then
            z = 2.5 + b * d
        Else
            z = ((b - 1) * a * Sqr(Cos(a * c))) ^ (1 / 4)
        End If
    End If
    MsgBox "Ответ z= " & z
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.545 из 5