Студопедия
Новини освіти і науки:
МАРК РЕГНЕРУС ДОСЛІДЖЕННЯ: Наскільки відрізняються діти, які виросли в одностатевих союзах


РЕЗОЛЮЦІЯ: Громадського обговорення навчальної програми статевого виховання


ЧОМУ ФОНД ОЛЕНИ ПІНЧУК І МОЗ УКРАЇНИ ПРОПАГУЮТЬ "СЕКСУАЛЬНІ УРОКИ"


ЕКЗИСТЕНЦІЙНО-ПСИХОЛОГІЧНІ ОСНОВИ ПОРУШЕННЯ СТАТЕВОЇ ІДЕНТИЧНОСТІ ПІДЛІТКІВ


Батьківський, громадянський рух в Україні закликає МОН зупинити тотальну сексуалізацію дітей і підлітків


Відкрите звернення Міністру освіти й науки України - Гриневич Лілії Михайлівні


Представництво українського жіноцтва в ООН: низький рівень культури спілкування в соціальних мережах


Гендерна антидискримінаційна експертиза може зробити нас моральними рабами


ЛІВИЙ МАРКСИЗМ У НОВИХ ПІДРУЧНИКАХ ДЛЯ ШКОЛЯРІВ


ВІДКРИТА ЗАЯВА на підтримку позиції Ганни Турчинової та права кожної людини на свободу думки, світогляду та вираження поглядів



Private Sub pp1()

Dim y As Single, a As Single, x As Single

a = Val(InputBox("Введіть а"))

x = Val(InputBox("Введіть x"))

y = (max(3.5, x + a) + max(x, a)) / max(x ^ 2, 120)

MsgBox "y=" & y

End Sub

Private Function max(b As Single, c As Single) As Single

If b > c Then max = b Else max = c

End Function

Приклад 2. Обчислити C = , деn>m. Визначення факторіала виконати в процедурі Function.

Private Sub pp2()

Dim n As Integer, m As Integer, c As Single

n = Val(InputBox("Введіть n"))

m = Val(InputBox("Введіть m"))

c = fact(n) / (fact(m) * fact(n - m))

MsgBox "c=" & c


Читайте також:

  1. Private Function F1(a As Single, ParamArray x) As Single
  2. Private Sub spravka_Click(Index As Integer)




Переглядів: 457

<== попередня сторінка | наступна сторінка ==>
Private Function F1(a As Single, ParamArray x) As Single | End Sub

Не знайшли потрібну інформацію? Скористайтесь пошуком google:

  

© studopedia.com.ua При використанні або копіюванні матеріалів пряме посилання на сайт обов'язкове.


Генерація сторінки за: 0.002 сек.