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

ФЕДЕРАЛЬНОЕ АГЕНСТВО ЖЕЛЕЗНОДОРОЖНОГО ТРАНСПОРТА

Федеральное государственное бюджетное образовательное учреждение высшего образования

«ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ПУТЕЙ СООБЩЕНИЯ Императора Александра I»

Кафедра «ИНФОРМАЦИОННЫЕ И ВЫЧИСЛИТЕЛЬНЫЕ СИСТЕМЫ»

Дисциплина «ИНФОРМАТИКА»

ОТЧЁТ

ПО ЛАБОРАТОРНОЙ РАБОТЕ № 3

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

ВАРИАНТ 16

Выполнил студент: **

Факультет: **

Специальность: **

Группа: **

Проверил:

Санкт-Петербург

20**

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

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

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

y=

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

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

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

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

Выходные данные: y – переменная вещественного типа.

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

y=

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

7

4

Нет

Да

6

5

3

2

1

y

x>0

y=e^x+ln2b

Конец

y=x*log₂b

x, b

Начало

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

Private Sub Command1_Click()

Dim b As Single, x As Single, y As Single

b = InputBox("b=")

x = InputBox("x=")

If x > 0 Then

y = x * Log(b) / Log(2)

Else

y = Exp(x) + Log(2 * b)

End If

Print y

End Sub

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

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

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

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

1) x=1; 2) x=2; 3) x=3.

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

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

Входные данные: x – переменная целого типа.

Выходные данные: y – переменная вещественного типа.

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

y=

y=

4

7

6

y=x

5

3

2

1

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

Конец

y

Нет

Да

x=2

Да

Нет

x<2

X

Начало

8

9

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

Private Sub Command1_Click()

Dim x As Integer, y As Single

x = InputBox("x=")

If x < 2 Then

y = 1 / (1 - 1 / (x - 0.5))

Else

If x = 2 Then

y = x

Else

y = 1.7 ^ x * Sin(x) * 1.2 ^ x / (1 + x)

End If

End If

Print y

End Sub

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