Структура развилка / 11

ЗАДАНИЯ К ЛАБОРАТОРНОЙ РАБОТЕ №3

«СТРУКТУРА РАЗВИЛКА»

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

y1=1-0,5a y2=a, если m<3,5

ввести значения y1 и y2, если m>3,5,

где m=r²

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

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

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

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

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

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

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

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

,

где m=r²

1

начало

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

y1, y2

2

a, r

3

m=r²

4

m<3,5

да

нет

5

y1=1-0,5a

y2=a

6

7

y1, y2

8

Конец

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

Private Sub Command1_Click() Dim a As Single, r As Single, y1 As Single, y2 As Single, m As Single r = InputBox("Введите r") a = InputBox("Введите a") m = r ^ 2 If m > 3.5 Then y1 = 1 - 0.5 * a y2 = a Else y1 = InputBox("Введите y1") y2 = InputBox("Введите y1") End If Print "r=" & r & " a=" & a Print "y1=" & y1 & " y2=" & y2 End Sub

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

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

где постоянная π=3,14.

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

1) x=-1,5; 2) x=0,5; 3) x=10,25;

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

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

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

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

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

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

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

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

9

Конец

y

8

7

нет

нет

да

y=-407,6+10³+x³+x

1

y=-407,6+10³+π

6

x<27

5

4

да

y=-407,6+10³+x²-0,3

3

x>0

2

x

начало

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

Private Sub Command1_Click() Dim x As Single, y As Single Const pi As Single = 3.14 x = InputBox("Введите x") If x < 0 Then y = -407.6 + 10 ^ 3 + x ^ 2 - 0.3 Else If x < 1 Then y = -407.6 + 10 ^ 3 + pi Else y = -407.6 + 10 ^ 3 + x ^ 3 + x End If End If Print "x=" & x & " y=" & y End Sub

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