Код выполнения условий согласно блок-схеме - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д