End Sub. Пример 3. Вычислить значение функции yдля вводимого с клавиатуры некоторого значения x:

Пример 3. Вычислить значение функции yдля вводимого с клавиатуры некоторого значения x:

.

Sub CommandButton1_Click()

Dim x As Single, y As Single

'Ввод исходных данных

x = Val(InputBox("Ввелите x "))

'Проверка условия и расчет значений

If x < 0 Then y = x + 2 Else If x <= 5 Then y = Sqr(5 * x) Else y = x ^ 2

MsgBox (y) 'Вывод результата

End Sub

Пример 4. Написать программу вычисления значений y и w.

Если х < 5, то y=sin2x, w=ctgx; если х ³ 5, то y=1-sinx, w=arctgx. Значение х={9; 0.1; -4; 5; 12}

Private Sub CommandButton1_Click()

Dim x As Single, y As Single, z As Single








Дата добавления: 2015-09-25; просмотров: 799;


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию.

Поделитесь с друзьями:

Если вам перенёс пользу информационный материал, или помог в учебе – поделитесь этим сайтом с друзьями и знакомыми.
helpiks.org - Хелпикс.Орг - 2014-2024 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.003 сек.