Структура развилка / Лр Развилка (4)

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

Ввести значение r и напечатать значение y=c+r, если d≤0

y=1,5c²+3,1 , если d>0,

где d=c+3,25

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

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

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

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

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

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

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

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

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

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

Private Sub Command1_Click()

Dim c As Single, r As Single, y As Single, d As Single

c = InputBox("c=")

r = InputBox("r=")

d = c + 3.25

If d > 0 Then

y = 1.5 * c ^ 2 + 3.1

Else

y = c + r

End If

Print "c=" & c & " r=" & r & " y=" & y

End Sub

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

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

в точке с=1,2x+π, где постоянная π=3,14.

При решении контрольного примера переменным присвоить значения:

1) x=-2,8; 2) x=6,8; 3) x=21.

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

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

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

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

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

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

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

где с=1,2x+π; π=3,14.

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

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

Private Sub Command1_Click()

Dim c As Single, x As Single, y As Single

Const pi As Single = 3.13

x = InputBox("x=")

c = ñ = 1.2 * x + pi

If c < 0 Then

y = 1.5 * c ^ 2 + 3.12

Else

If c > 0 And c < 27 Then

y = Tan(4 * c) / (3.1 + c)

Else

y = c

End If

End If

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

End Sub

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