Сценарии развития ситуации на реке

Номер сценария	Признаки	Описание
0	none	благоприятная обстановка
1	A	усилить внимание
2	B	угроза паводка
3	C	угроза половодья
4	B & C	угроза большого наводнения
5	A & B	угроза большого паводка
6	A & С	угроза большого половодья
7	A & B & С	угроза катастрофического наводнения

Комментарий:

Сочетание условий среднесуточная температура >3°С & много снега является причиной возникновения обильного таяния снега.

Код программы:

Function River() As Boolean

Dim p As Byte

p = MsgBox("высокий уровень воды в реке", vbYesNo, "Опрос")

If p = vbYes Then River = True

End Function

Function Rain() As Boolean

Dim p As Byte

p = MsgBox("ливневый дождь", vbYesNo, "Опрос")

If p = vbYes Then Rain = True

End Function

Function Snow() As Boolean

Dim p As Byte, q As Byte

p = MsgBox("температура > 3", vbYesNo, "Опрос")

If p = vbYes Then

q = MsgBox("много снега", vbYesNo, "Опрос")

If q = vbYes Then Snow = True

End If

End Function

Private Sub Command1_Click()

Dim A As Boolean, B As Boolean, C As Boolean

A = River()

B = Rain()

C = Snow()

If A And B And C Then

Label1.Caption = "угроза катастрофического наводнения"

ElseIf A And C Then

Label1.Caption = "угроза большого половодья"

ElseIf A And B Then

Label1.Caption = "угроза большого паводка"

ElseIf B And C Then

Label1.Caption = "угроза большого наводнения"

ElseIf C Then

Label1.Caption = "угроза половодья"

ElseIf B Then

Label1.Caption = "угроза паводка"

ElseIf A Then

Label1.Caption = "усилить внимание"

Else

Label1.Caption = "благоприятная обстановка"

End If

End Sub

3. 7. Вычисление параметров селевого потока

(Практическая работа №7)

Цели :

1. Закрепить теоретический материал

2. Приобрести практические навыки

Задания:

1. Определить скорость движения селевого потока по условиям

2. Определить давление селевого потока по условиям

скорость движения селя

α=20º, sin20=0.34

h=0.5 м

V=11.4*(0.5)^1/2*(sin20)^1/3=5.64 (м/c)

α=15º, sin15=0.26

h=1 м

V=11.4*(sin15)^1/3=7.26 (м/c)

Комментарий:

Для тригонометрических функций в Visual Basic используется радианная мера угла. Переход от градусов к радианам производится по формуле:

Радианы = (3.141593/180)Градусы

давление селя

Определить давление селевого потока для следующих условий:

ρ=1200 кг/м³

h=2 м

V=2.5 м/с

λ=90º, sin90=1

P_c=0.5*1200*9.81*2=11770 (Па) = 0.1177 10⁵ (Па)

P_д=0.5*1200*(2.5)²=3750 (Па) = 0.0375 10⁵ (Па)

P=0.1552 10⁵ (Па)

параметры селя

• плотность потока, ρ

• высота потока, H

• средний угол наклона русла, α

Комментарий:

Ввести следующие ограничения на величину параметров:

• ρ=1.2–1.9 10³ (кг/м³)

• H=1–10 (м)

• α=10–27º

Вопросы:

1. Какая мера угла используется в Visual Basic

2. Как ввести ограничения на величину параметров