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

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

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

ВАРИАНТ 20

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

где a=d+3,5c

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

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

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

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

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

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

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

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

где a=d+3,5c

1

начало

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

2

d, c

3

a=d+3.5c

4

да

a>1,3

Конец

r

5

нет

6

r=lga

r=2.5a-11

7

8

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

Private Sub Command1_Click() Dim d As Single, c As Single, a As Single, r As Single d = InputBox("d=") c = InputBox("c=") Print "d=" & d & " c=" & c a = d + 3.5 * c If a > 1.3 Then r = 2.5 * a – 11 Else r = Log(a) / Log(10) End If Print "r=" & r End Sub

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

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

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

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

1) x=13; 2) x=54; 1) x=60;

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

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

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

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

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

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

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

1

начало

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

2

x

4

3

да

X<54

y=

5

нет

6

да

y=

X=54

7

нет

y=

8

1

y

9

Конец

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

Private Sub Command1_Click() Dim x As Integer Const pi As Single = 3.14 x = InputBox("x=") If x < 54 Then y = (5 - 2 * x) ^ 2 * (5 + 2 * x ^ 2) ^ 0.5 Else If x = 54 Then y = Sin(pi + x) Else y = (9 * x + 2) ^ 0.5 End If End If Print "x=" & x & " y=" & Format(y, "0.000") End Sub

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