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

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

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

ВАРИАНТ 21

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

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

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

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

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

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

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

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

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

1

начало

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

2

a, x

3

y

y=

Конец

y=

нет

да

x>0

5

4

6

7

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

Private Sub Command1_Click() Dim x As Single, a As Single, y As Single x = InputBox("x=") a = InputBox("a=") If x > 0 Then y = x ^ 2 + Log(a) / Log(3) Else y = -x + Cos(x ^ 3) End If Print "x=" & x & " a=" & a & " y=" & y End Sub

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

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

где постоянная π=3,14; x – переменная целого типа.

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

1) x=27; a=2,1; b=3,5; 2) x=25; a=2; b=3,4; 3) x=30; a=1,9; b=3,3;

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

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

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

x – перменная целого типа,

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

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

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

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

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

1

начало

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

2

x, a, b

4

3

да

x=27

y=a+b

нет

6

5

y=

да

x<27

нет

7

y=

8

y

9

Конец

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

Private Sub Command1_Click() Dim x As Integer, a As Single, b As Single, y As Single x = InputBox("x=") a = InputBox("a=") b = InputBox("b=") If x = 27 Then y = a + b Else If x < 27 Then y = (a ^ 2 + b ^ 2 + x) ^ 0.5 Else y = a * b / x End If End If Print "x=" & x & " a=" & a & " b=" & b & " y=" & y End Sub

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