НАПИСАТЬ Программку НА ЯЗЫКЕ БЕЙСИК

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

Задать свой вопрос
1 ответ
'VBScript 5
Sub Zadanie17645662(x)
    yy = 0
    if x gt;= 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)
Регина Лейпунер
Нужно учитывать, что при х=1.162 cos преобразуется в 0
Бумарин Витя
в таких задачках это необыкновенно, нигде не сказано что программа не может падать
Олег Танасюк
Cпасибо за помощь!
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт