АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

Пример1

Читайте также:
  1. Основные теоремы
  2. Признаки сравнения рядов с положительными членами
  3. Примеры решения задач

при >0.1

при ≤0.1

 

Программа на VBA:

Конструкция с Select case:

Sub Пример2_1()

Dim y As Single

Dim x As Single

Dim m As Single

Dim n As Single

Dim S As Single

x = InputBox("x=", "ввод x")

y = InputBox("y=", " ввод y")

m = (7.002 * 0.1 ^ (1 / 3) - 1 + x * (Exp(2) + Exp(-2)) / 10) ^ (1 / 5)

n = Log(3) * (Cos(Application.Pi() / 5) + Cos(3 * Application.Pi() / (5 * y)))

Select Case m ^ 2 + n ^ 2

Case Is > 0.1

S = Atn(5 * m ^ 2 + 7 * n ^ 2)

Case Else

S = Atn(5 * m ^ 2 - 7 * n ^ 2)

End Select

MsgBox ("S=") & S

End Sub

Конструкция IF..THEN…ELSE…END IF:

Sub Пример2_2()

Dim y As Single

Dim x As Single

Dim m As Single

Dim n As Single

Dim S As Single

x = InputBox("x=", " ввод x")

y = InputBox("y=", " ввод y")

m = (7.002 * 0.1 ^ (1 / 3) - 1 + x * (Exp(2) + Exp(-2)) / 10) ^ (1 / 5)

n = Log(3) * (Cos(Application.Pi() / 5) + Cos(3 * Application.Pi() / (5 * y)))

If m ^ 2 + n ^ 2 > 0.1 Then

S = Atn(5 * m ^ 2 + 7 * n ^ 2)

Else

S = Atn(5 * m ^ 2 - 7 * n ^ 2)

End If

MsgBox ("S=") & S

End Sub

 



1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 |

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



Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.002 сек.)