НАПИСАТЬ ПРОГРАММУ ** ЯЗЫКЕ БЕЙСИК

Question

НАПИСАТЬ ПРОГРАММУ НА ЯЗЫКЕ БЕЙСИК

---

Answer 1

'VBScript 5
Sub Zadanie17645662(x)
    yy = 0
    if x >= 3 then
        yy = Sqr(Sqr((1 + x * x) / x))
    else
        yy = (x + 1) / Cos(x * x * x)
    end if

    z = -4 * Sqr(1 + Sin(yy) * Sin(yy))
    MsgBox z

End Sub

Call Zadanie17645662(01)

Comments

Необходимо учесть, что при х=1.162 cos превращается в 0

---

в таких задачах это своеобразно, нигде не сказано что программа не может падать

---

Cпасибо за помощь!