Структура развилка / 22 (2)

1.1 Словесное описание задачи:

Продукты расфасованны в два пакета. Масса первого – m₁ кг, второго – m₂ кг. Определить, какой пакет тяжелее – первый или второй и массу более тяжёлого пакета.

1.2 Описание постановки задачи

Состав входных и выходных данных:

Входные данные:

m1 – перменная вещественного типа,

m2 – переменная вещественного типа.

Выходные данные:

m – переменная вещественного типа.

1.3 Математическое описание задачи:

1.4 Схема алгоритма решения задачи:

1.5 Листинг кода программы:

Private Sub Command1_Click()

Dim m1 As Single, m2 As Single

m1 = InputBox("m1=")

m2 = InputBox("m2=")

If m1 > m2 Then

Print "Пакет с массой m1=" & m1 & " тяжелее"

Else

Print "Пакет с массой m2=" & m2 & " тяжелее"

End If

End Sub

1.6 Выполнение проекта:

1.7 Ручной расчёт:

При m1=10; m2=15 m1<m2

При m1=27; m2=11 m1>m2

При m1=5; m2=9 m1<m2

2.1 Словесное описание задачи:

2.2 Описание постановки задачи

Состав входных и выходных данных:

Входные данные:

x – перменная вещественного типа.

Выходные данные:

y – переменная вещественного типа.

2.3 Математическое описание задачи:

2.4 Схема алгоритма решения задачи:

2.5 Листинг кода программы:

Private Sub Command1_Click()

Dim x As Single, y As Single

x = InputBox("x=")

If x <= 1 Then

y = x

Else

If x <= 3 Then

y = 1

Else

y = Sin(x)

End If

End If

Print "x=" & x & "; y=" & y

End Sub

2.6 Выполнение проекта:

2.7 Ручной расчёт:

При x=-1 y=x=-1

При x=2,77 y=1

При x=6 y=Sin(x)=Sin(6)=-0,27941549